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ABSTRACT 


This Wall Adjustment Strategy (WAS) software provides successful on-line control of the 2-D 
flexible walled test section of the Langley 0.3-m Transonic Cryogenic Tunnel. This software 
package allows the level of operator intervention to be regulated as necessary for research and 
production type 2-D testing using an Adaptive Wall Test Section (AWTS). The software is 
designed to accept modification for future requirements, such as 3-D testing, with a minimum of 
complexity. The WAS software described here is a unique attempt to provide a user friendly 
package which could be used to control any flexible walled AWTS. Control system constraints 
influence the details of data transfer, not the data type. Consequently, this entire software 
package could be used in different control systems, if suitable interface software is available. 

A complete overview of the software highlights the data flow paths, the modular architecture of 
the software and the various operating and analysis modes available. A detailed description of 
the software modules includes listings of the code. We provide a user’s manual to explain task 
generation, operating environment, user options and what to expect at execution. A typical 
output listing is shown as part of one of the software tests described in the text. Necessary utility 
software for datafile management is only briefly described, since this software is system oriented. 

The WAS software forms the major component of any AWTS control system. We intend this 
report to help those who need to know the details of controlling an AWTS with flexible walls and 
those involved with WAS software maintenance. 


1 



CONTENTS 


1. INTRODUCTION 

2. OVERVIEW ..... 

3. MODES OF ANALYSIS .... 

4. COMPUTATIONS . . . 4 

4.1 Wall Shape Predictions 

4.2 Wall Boundary Layers 

4.3 Assessment of Wall Induced Interferences 

5. SOFTWARE DESCRIPTION 

5.1 FLXWAS 5.2 INITWAL 5.3 STWALL 

5.4 WALCAL 5.5 WALDAT 5.6 STAR 

5.7 WAS 5.8 SUME 5.9 OUT 

5.10 ERROR 

6. SOFTWARE USER’S MANUAL . 

6.1 Task generation 

6.2 Operating Environment 

6.3 User Options 

6.4 Execution of the WAS software 


7. SOFTWARE COMPUTATION TESTS 

7.1 Technique Overview 

7.2 Software Test Techniques 

7.3 Support Software (TSFLOW and SWFLOW) 

8. UTILITY SOFTWARE OVERVIEW 

9. REFERENCES ..... 


ACKNOWLEDGEMENT . 



CONTENTS 


FIGURES . 
APPENDIX A 
APPENDIX B 
APPENDIX C 
APPENDIX D 
APPENDIX E 
APPENDIX F 
APPENDIX G 


Page 

42-53 

56 

130 

151 

157 

161 

168 

183 


iii 



APPENDICES 


A WAS Software Listings: 

A.l FLXWAS 
A.2 INITWAL 
A. 3 STWALL 
A.4 WALCAL 
A. 5 WALDAT 
A. 6 STAR 
A. 7 WAS 
A. 8 SUME 
A.9 OUT 
A. 10 ERROR 


Page 


55 

67 

73 

81 

91 

99 

105 

113 

119 

125 


B Listing of Included Source Files: 

B.l FLXCOM . . . 129 

B.2 FLXTYP . 137 

B.3 FWPTYP . 139 

B.4 FWPEQU . . .141 

B.5 WASCOM . . . 143 

B.6 OAPCM ... 147 


C Abort Procedures . . . 151 

D Reference Table Documentation . . . 157 

D. l Listing of FM ASSIGN 159 

E Wall Library Documentation . . . . 161 

E. l Listing of TAB ASS 163 

F Support Software - TSFLOW & SWFLOW 

F. 1 Listing of Program TSFLOW 167 

F.2 Sample Output of TSFLOW ' 171 
F.3 Listing of Program SWFLOW 175 
F.4 Sample Output of SWFLOW 179 

G Description of Subroutine WALCAL Computations . 183 


IV 


1. INTRODUCTION 


The Wall Adjustment Strategy (WAS) software describe here is for on-line control of the 
Adaptive Wall Test Section 1 (AWTS) in the NASA Langley 0.3-meter Transonic Cryogenic 
Tunnel (TCT) for two-dimensional testing. We have based this code on control software 2 
extensively proven with the Transonic Self-Streamlining Wind Tunnel (TSWT) at the University 
of Southampton, UK. 3 ' 4 The WAS software fulfills the following requirements: 

1) To determine the shapes of the test section walls, for each data 
point, by the necessary sequencing of events for a wall 
streamlining/adaptation cycle as shown below: 



2) To provide various selectable analyses of the wall data including 
prediction of new wall shapes to minimize boundary interference. 

3) To operate in various selectable modes to accommodate production 
testing and research needs. 

4) To store raw and reduced tunnel data on disk as required. 

5) To provide selection of initial wall contours independent of actual 
tunnel test conditions. 

6) To allow critical computation factors to be easily assigned new values. 


The integration of a flexible walled test section in a continuous flow cryogenic tunnel is unique 
in the 0.3-m TCT. This software was primarily a research tool to allow the tunnel operators to 
investigate the capabilities of this unique facility. However, as we have gained experience with 
the AWTS, we have made unique efforts to ensure that non-specialist operators can run the 
software for “routine” airfoil testing within a known test envelope. These demands together with 
system hardware and software constraints have produced the operator interface described in this 
work. 
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The software is designed to accept modification, such as for 3-D testing, with a minimum of 
complexity. We achieve this desirable situation by use of a modular architecture. The WAS 
software described here is a unique attempt to provide a user friendly package which could be 
used with any flexible walled AWTS. We have generalized the WAS software to assist those 
engineers who may wish to use this software to control other similar type AWTS. (The essentials 
of the AWTS hardware are outlined in reference 5.) For example, all the geometric data about 
the 0.3-m TCT AWTS is written into the code using informative variable and array names. 
Fortunately, control system constraints only influence the details of data transfer not the data 
type. Consequently, this entire software package could be used in different control systems, if 
suitable interface software is made available. The WAS software forms the major component of 
any AWTS control system. We do not describe the other system dependent components here. 
What we do describe though is the data interface that the WAS software has with these other 
components. We intend this report to assist those who need to know the details of controlling an 
AWTS with flexible walls, and also those involved with WAS software maintenance. 


The WAS software is necessarily complex and we attempt to unravel this complexity in an 
overview found in section 2. The overview highlights the‘ data flow paths, the modular 
architecture of the software and the various operating and analysis modes available. More 
information on the modes of analysis for different testing requirements is found in section 3. 
We briefly describe the associated computations in section 4, more information is available in the 
literature. 


We give a detailed description of the WAS software in section 5, with code listings in Appendix 
A. Definitions, declarations and equivalences of the data commons are contained in source files 
actually included in the WAS software sources. We provide code listings of these included 
sources in Appendix B. 


In section 6, we include a User’s Manual for the WAS software. In sub-section 6.1, we explain 
how to generate the executable task/module, called FLXWAS, should changes to the WAS 
software be necessary. Sub-section 6.2 of the manual provides detailed information on the 
complex operating environment for FLXWAS. The correct environment must be setup if the task 
is to function successfully. In sub-section 6.3, there is an overview of the user options available 
with FLXWAS. We give examples of how these options allow a knowledgeable operator to 
change the wall adaptation (testing technique) to accommodate “non-routine” testing. We explain 
execution instructions in sub-section 6.4 which includes an explanation of what to expect from 
the WAS software at execution time. If errors are flagged during execution, the Appendix C 
contains abort procedures for error recovery. 


We describe numerous software computation tests in section 7, with one test case shown to 
illustrate what the typical output from the WAS software looks like for one iteration. This test 
case is a good check of any software modifications. We describe the software necessary to 
support some of these tests in sub-section 7.2, with code listings in Appendix F. 


In section 8, we briefly describe utility software necessary for management of the three datafiles 
used by the WAS software. These routines provide essential off-line back-up to the WAS 
software and are system orientated. We explain how to use these routines for various datafile 
manipulation and documentation procedures in Appendix D and E. 
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2. OVERVIEW 


We have written the WAS software to operate with existing 0.3-m TCT real-time data acquisition, 
control and plotting tasks (see Programmer’s Reference Manual for the 0.3-meter Transonic 
Cryogenic Tunnel Modcomp CPU-A Flexwall Control System) on the Modcomp Classic 7863 
mini-computer (called CPU-A). The Modcomp Classic runs under the MAX IV multi-tasking 
operating system. We have written the software in the FORTRAN IV language. 

The successful operation of the WAS software requires a continual exchange of information 
between the wind tunnel and the wall adaptation control computer (CPU-A) via many data paths 
including the tunnel data acquisition computer (another Modcomp Classic mini-computer called 
CPU-B). We show the flexwall control system hardware on Figure 1. Meanwhile, the flexwall 
control system software has a data path chart for the task of controlling the flexible wall shapes 
as shown on Figure 2. We can breakdown this control task into its functional elements as shown 
on Figure 3. These functional elements are Determine Wall Shapes; Move Walls; Acquire and 
Translate Tunnel and Wall Data; Monitor Wall Shapes. The WAS software forms the most 
important functional element of the task, namely Determine Wall Shapes. The other functional 
elements are not described in this report. 

We show the WAS software interface with the flexwall control system software and the CPU-A 
system on Figure 4. The WAS software communicates with the flexwall control system software 
via a data common called FLXCOM (a private shared region listed in Appendix B). For example, 
the WAS software outputs the destination wall shapes by loading array JPOSN (located in 
FLXCOM). Then, we initiate wall movements by use of control bits in the status words FLX1SW 
and FSSTAT (both located in FLXCOM). In addition, we pass data between the two Modcomp 
mini-computers (CPU-A and CPU-B) by the MAXNET link which uses the Communications 
Control Word IACCW, the Communications Status Word IASTAT and the move status bit in 
Ft XISW. Tunnel data from CPU-B is loaded into variables included in FLXCOM. 
Unfortunately, some exceptions to this rule exist. For example, the WAS software initiates the 
acquisition of the wall pressures by calls to the flexwall software subroutine FRQST. Also, the 
WAS software reads the digital constants (Analysis mode designator and computational factors) 
through a system data common called OAPCOM by using calls to a system subroutine DIGICO. 
Other system subroutines called are SETB, TSTB, RLTBZ4, DELAY, T2MCAL, TIMEOUT and 
TIME as shown on Figure 4. 

In order to perform research and production type testing in the 0.3-m TCT, we have configured 
the WAS software with several analysis and operating modes (See sub-section 6.3). We have 
supplemented a normal mode of analysis for routine 2-D airfoil testing with three other modes of 
analysis. One mode is for system development purposes during wall adaptation research or tunnel 
check-out, when it is useful to have extra real-time data available. Another is for empty test 
section or straight wall streamlining used during test section calibration. Also, a mode exists to 
allow off-line re-analysis of raw wall and tunnel data to allow software checking (See section 3). 

Of the several modes of operation, one is a normal or default mode with flexwall control task 
word options CONTINUE, NOWAIT and NOPAUSE selected. Then a mode exists where 
completion of a streamlining cycle is at the discretion of the operator using the option PAUSE. 
When testing at high subsonic Mach numbers, the test conditions may be significantly affected by 
each change of wall shapes. So a mode exists to allow the tunnel operator to check the test 
conditions before acquiring each set of wall pressures. We select this mode with the option 
WAIT. Finally, a mode exists to allow the tunnel user to investigate the effects of wall 
adaptation on the model pressures. So, in this mode, we acquire model data for each iteration of 
a streamlining cycle by selecting the option SINGLE for single iteration mode. We can select 
various combinations of the operating modes (See sub-section 6.3). On Figure 5, we show how 
these operating modes affect the overall sequence of events necessary for determining streamline 
wall shapes. Please note, we achieve event sequencing between CPU-A and CPU-B by pausing 
the executable module FLXWAS on CPU-A with calls to the system subroutine WAIT4. 
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The WAS software is written using a versatile modular architecture with the program segmented 
into a collection of ten logical modules. A review of the software modules is shown below: 

WAS Software Modules 


File TvDe & Name 

Function 

Main Program 
(FLXWAS) 

i) Sequences streamlining cycle events for a given operating mode. 

ii) Loads AWTS parameters into private shared region WASCOM. 

iii) Performs system exit for various normal & error conditions. 

Subroutine 1 
(INITWAL) 

Selects initial wall contours for a given set of test parameters 
(Mach number, Reynolds number and AoA) calling subroutines 
STWALL and WALCAL when necessary. 

Subroutine 2 
(STWALL) 

Selects the wall data for “aerodynamically straight” wall contours 
for a given Reynolds number and Mach number, from the 
Reference Table datafile using calls to subroutines FILESORT 
and GETDATA. 

Subroutine 3 
(WALCAL) 

Calculate streamline wall contours and the associated pressure 
distributions in the farfield of a thin airfoil, based on estimates of 
lift and drag coefficients, using calls to subroutines BLOCK, LIFT 
and WAKE. 

Subroutine 4 
(WALDAT) 

i) Loads “aerodynamically straight” wall data into WASCOM. 

ii) Stores or reads raw wall and tunnel data in the raw data datafile 
when the appropriate analysis rqode is selected. 

Subroutine 5 
(STAR) 

Performs boundary layer calculations along each flexwall. 

Subroutine 6 
(WAS) 

Predicts a new set of wall contours for streamlining and calculates 
the associated external (imaginary) velocity distributions. 

Subroutine 7 
(SUME) 

Assesses the quality of wall streamlining using the wall pressure 
loading. 

Subroutine 8 
(OUT) 

Sends an iteration summary to the lineprinter and loads reduced 
wall data in the library of wall data. 


Subroutine 9 Sends error information to the operator console and lineprinter. 

(ERROR) 

We link these modules together to create the executable module/task FLXWAS (see sub-section 
6.1). The subroutine modules communicate through the data commons in private shared regions 
WASCOM and FLXCOM. We include the definitions, declarations and equivalences of all the 
data commons in the WAS software using the source files FLXCOM, FLXTYP, FWPTYP, 
FWPEQU, WASCOM and OAPCM. We list each of these source files in Appendix B. In 
addition, we include the assignments for the Reference Table datafile in the WAS software using 
the source file FM ASSIGN listed in Appendix D.l. Detailed information on each module is 
found in Section 5 with listings in Appendix A. 

This structure allows the user to initially test modified subroutine modules independent of the 
main task, a useful debugging feature. In addition, we can easily include different analyses by 
simply replacing an existing module or including another module into the software structure. 
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3. MODES OF ANALYSIS 


We have configured the WAS software to function in four analysis modes. We have assigned each 
mode a value of the analysis mode designator IANAL from 0 to 3 (IANAL is assigned a value at 
the CPU-A Digital Constants Panel). 

3.1 Infinite Flow Streamlining 

IANAL = 0 for “routine” infinite flow streamlining during 2-D airfoil tests. The WAS software 
then streamlines/adapts the walls according to the wall adjustment strategy of Judd, Goodyer and 
Wolf 5,6 outlined in sub-section 4.1.2. Successful wall streamlining will automatically end only 
when the measures of the wall streamlining quality are below fixed maxima (see sub-section 6.4). 
Alternatively, an error condition will end an unsuccessful attempt to streamline the walls. During 
each data point, we store in a datafile, a set of data for the last predicted wall shapes. So after a 
successful streamlining, only the streamlined wall shapes are stored. If the streamlining was 
unsuccessful then the next set of predicted wall shapes in the streamlining cycle is stored and this 
data set is available for retaking the data point. Consequently, with each data point a set of wall 
data is added to a library of wall data. This reduced data datafile forms a temporary wall library 
for subsequent use in selecting initial wall contours for future data points. 

3.2 Empty Test Section Streamlining 

For the test section calibration, the test section itself is empty to perform what we know as 
straight wall streamlining (IANAL = 1). This streamlining/adaptation attempts to generate a 
constant Mach number distribution along each flexwall using a technique described in sub- 
notion 4.1.1. We can use these tests to create “aerodynamically straight” wall contours which are 
a reference for all future wall adaptations. In this analysis mode, the WAS software must have 
the PAUSE operating mode selected, since the operator selects the best “aerodynamically 
straight” contours for each data point. We then store these selected contours in a library of wall 
data on the reduced data datafile. Later we can select the best contours to transfer to a 
permanent wall library called the Reference Table datafile, following procedures outlined in 
Appendix D. 

3.3 Re-analysis of Wall Data 

For checking of new or old WAS software off-line (See section 7 for more details), we select a 
re-analysis mode by setting IANAL = 2. In this mode, the WAS software bypasses all 
communication with the wind tunnel and CPU-B. The WAS software performs a single dummy 
iteration in a simulated infinite flow streamlining cycle using raw wind tunnel and wall data 
stored in the raw data datafile. The operator selects the initial wall contours for the dummy 
iteration in the normal manner and selects the the set of raw data for re-analysis. Before 
activating the WAS software, the operator must load the appropriate raw data for re-analysis into 
the raw data datafile (See Appendix E) and initialize the Reference Table datafile as appropriate 
(See Appendix D). 

3.4 Development Streamlining 

For development testing where infinite flow streamlining is not routine, it is helpful to select this 
mode of analysis by setting IANAL = 3. A full printout of WAS data is then created for each 
wall streamlining/adaptation iteration. In addition, raw wall pressures for the last iteration of 
each data point (usually with the walls streamlined) are stored in the raw data datafile for 
subsequent re-analysis. 
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4. COMPUTATIONS 


4.1 Wall Shape Predictions (Subroutine WAS) 


4.1.1 Empty Test Section Streamlining 

The WAS software calculates a local Mach number error, relative to the measured free stream 
Mach number, for each of the eighteen wall jacks (#1 to #18) which control the streamlining 
portion of the test section. We multiply these errors by an empirical factor called WMOVF, to 
compute wall movements for constant Mach number distributions. The value of the variable 
WMOVF used with the 0.3-m TCT is 1.0 (We assign a value to WMOVF at the CPU- A Digital 
Constants Panel). 


4.1.2 Infinite Flow Streamlining 

The WAS 5,6 computes, from the wall pressures alone, wall movements at jacks #1 to #18 per 
flexwall. These wall jacks control the streamlined portion of the test section. The strategy 
adjusts these computed wall movements for the aerodynamic interactions between the top and 
bottom walls using computational factors called Coupling Factors TWCPLF and BWCPLF 
(Usually each assigned an empirical value of 0.35 at the CPU-A Digital Constants Panel). In 
addition, the strategy minimizes a natural overshoot by applying other computational factors 
called Scaling Factors TWSF and BWSF (Usually each assigned an empirical value of 0.8 at the 
CPU-A Digital Constants Panel) to the computed wall movements. 


4.1.3 General Information 

In all streamlining modes, the WAS software treats the downstream wall jacks (#19, #20 and #21) 
on each wall as part of the variable diffuser. The WAS software does not use these jacks for test 
section streamlining. We control these three jacks per wall to give a smooth wall slope from the 
wall ’kink’, located between jacks #18 and #19, back to the sliding joint at the downstream end 
of the flexwall plate. We relate the shape of the variable diffuser to the position of jack #18 by 
the following: jack #19 position is 3/4 of jack #18 position from geometrically straight ; jack 
#20 position is 3/8 of jack #18 position ; jack #21 position is 1/8 of jack #18 position. We have 
made no provision for the creation of a sonic throat in the variable diffuser, however we could 
include this provision if required. 

The WAS software stores the predicted jack movement demands for all 21 jacks per flexwall in 
arrays TWMOV (for the top wall) and BWMOV (for the bottom wall). We have included both 
these arrays in the private shared region WASCOM. Positive movement is always up. 

The WAS software normalizes the external local wall velocity increments (imagined to exist over 
the outside of the predicted wall shapes for the next iteration) with respect to the free stream 
velocity. The software stores these normalized velocity increments in arrays TWNVEL (for the 
top wall) and BWNVEL (for the bottom wall). We have included both arrays in the private 
shared region WASCOM. 

NOTE: Due to power limitations, jack #1 on each wall has become a special case and the 
software moves the jack half the demanded movement of jack #2 until the jack reaches a 
movement limit, i.e. 1.9mm (0.075 inch) on the top wall and 1.65mm (0.065 inch) on the bottom 
wall. Hardware modifications will remove this special case in due course. 
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4.2 Wall Boundary Layers (Subroutine STAR) 

We compute the boundary layer displacement thickness d* along each wall from measured wall 
pressures using the Von Karman momentum integral equation solved for a turbulent boundary 
layer by a numerical technique. We assume that the wall boundary layer starts from an arbitrary 
point, one large jack spacing (12.06cm (4.75 inches)) ahead of the flexwall anchor point, and 
behave as a flat plate boundary layer for the first 12.06cm (4.75 inches). We obtain the wall 
Mach number distributions from the measured wall pressures using isentropic flow relationships. 
No special procedure is included for shock/boundary layer interactions. Consequently, a warning 
message is given to the operator if sonic speeds have been measured at either wall. The software 
stores the d* values in arrays TWDS (for the top wall) and BWDS (for the bottom wall). Again, 
we have included both these arrays in the private shared region WASCOM. 

The software computes a dd* value for each of the streamlining jacks. These dd* values are the 
local difference between a straight wall value of d* found from the Reference Table datafile for 
the current test Mach number and test Reynolds number, and the computed value of d* for the 
test. The software uses these dd* values to determine the aerodynamic contours of the flexwalls 
for each wall adaptation iteration. 


4.3 Assessment of Wall Induced Interferences (Subroutine SUME) 

We compute a distribution of induced velocities in the horizontal and vertical planes along the 
test section centerline and the model chordline. We calculate these induced velocities using 
potential flow theory with the Prandtl-GIauert factor for linearised compressible flows. We 
represent each flexwall with 18 panels of wall vorticity placed on the aerodynamic contours of 
each wall at the location of each streamlining jack. The local strength of the vorticity is 
proportional to the local pressure loading on the wall. 1 2 3 4 The potential flow field for assessment of 
the wall induced interferences consists of an undisturbed free stream in which we place two 
vortex sheets. The operator defines the position of the model in the test section (between the two 
vortex sheets) using the setup test parameter table WASPAR (located in the private shared region 
FLXCOM). The tunnel operator uses a flexwall control system task FLXOP to make the necessary 
assignments in WASPAR. In the WASPAR table, XLORIG is defined as the horizontal distance of 
the model quarter chord point from the model pivot (positive upstream), in inches. While 
YLORIG is defined as the vertical distance of the model quarter chord point from the model 
pivot (positive up), in inches. The walls are streamlined/adapted when a streamlining criterion is 
satisfied. In the 0.3-m TCT, the criterion for routine 2-D testing requires the following levels of 
residual interferences to exist in the test section: 

1) The average of the modulus of the local Cp error between internal (real) 
and external (imaginary) flows along each wall < 0.01. 

2) The modulus of the induced angle of attack at the model leading edge < 0.015 degree. 

3) The modulus of the induced camber along the model chordline < 0.07 degree. 

4) The modulus of the average induced Cp error along the model chordline < 0.007. 

For empty test section streamlining, we use the magnitude of the standard deviation in the wall 
Mach number distribution as the streamlining criterion. During 0.3-m TCT calibration, we 
obtained values of Mach nupiber standard deviation of less than 0.003 at low subsonic Mach 
numbers. The standard deviations increased at transonic speeds due to increased sensitivity of 
the tunnel flow to flexwall imperfections. These standard deviations are a measure of the quality 
of the test section instrumentation and aerodynamic performance and may provide a useful way 
of comparing facilities in the future. 
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5. SOFTWARE DESCRIPTION 


We have written the WAS software so that each module is hopefully self-explanatory. A title 
block (which includes most of the descriptive information in this section), comments and 
meaningful variable names have all been included to this end. The description of each module 
highlights the data inputs and outputs in an attempt to allow easy and effective use of the 
software as a whole or part. We group data relative to the test section geometry after each title 
block, as required, to simplify the use of the software with different tunnels. 


5.1 Program FLXWAS (Version 3.0) - WAS control task (See Appendix A.l for a listing) 

This is the main program which loads the AWTS parameters ihto fnemory and then sequences 
events during a streamlining cycle for the selected operating mode, as shown on Figure 6. 

Date 06/15/88 

Operating Environment : See sub-section 6.2 for full description. 

Included Source Files : 

OAPCM - System Common Definitions. 

FLXCOM - Flexwall Control System Common Definitions. 

WASCOM - WAS Common Definitions. 

FLXTYP - Flexwall Common Type Declarations. 


Logical Files Used : 

CO - Input/output to console 
LO - Output to lineprinter 


Shared Regions: 

OAPCOM 

FLXCOM 

WASCOM 


(Inserted, no restrictions) 
(Inserted, no restrictions) 
(Inserted, no restrictions) 


User-Defined Subroutine Calls : 

INITWAL 

WALDAT 

STAR 

WAS 

SUME 

OUT 

FRQST (Flexwall control system subroutine) 


System Subroutine Calls : 

DIGICO - Reads digital constants from data common OAPCM. 
DELAY - Inserts a delay of in the task execution. 

WA1T4 - Causes task to go into a pause state. 

SETB - Sets selected bits in control words. 

TSTB - Tests state of selected bits in control words. 

RLTBZ4 - Wait for selected bit to change state. 

TIMEOUT, TM2CAL and TIME - Read current date and time. 
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5.1 Program FLXWAS (Continued) 


Inputs : 

/OAPCOM/ NAME 

Contents of array NAME become computational factors TWCPL.F, BWCPLF, TWSE, BWSF and 
WMOVF, and the analysis mode designator 1ANAL (via variable ANAL). 


/FLXCOM/ IBTSTNR, IBRUNNR, IBPTNR, XCHORD, XBMACH, XBPS, 
XBPT, XBTT, XBRHOS, XREYNO, XBAOA, FLXISW, FSSTAT, FLXOPT, MVSTAT, 
WASPAR, WPRS, JSTAT, JPOSA 

IBTSTNR, IBRUNNR, IBPTNR, XCHORD, XBMACH, XBPS, XBPT, XBTT, XBRHOS, 
XREYNO, XBAOA are all wind tunnel test conditions. 

FLXISW - Flexwall interrupt status word - Bit 7 indicates move status. 

FSSTAT - Flexwall system status word - Flexwall hardware status. 

FLXOPT - Flexwall task option word - Set by using task FLXOP. 

MVSTAT - Move status word - Task FMVSTR information on flexwall move. 

WASPAR - Wall alignment strategy setup test parameters - Set by using task FLXOP. 6 
WPRS - Array of wall pressures (PSIA). 

JSTAT - Wall jack status table. 

JPOSA - Array of averaged current jack positions (Inches). 


Outputs : 

WPRS 


/FLXCOM/ STRSTAT, FLXISW, FSSTAT, IACCW, IASTAT, JPOSN, JPOSA, 


STRSTAT - Streamline status word. 

FLXISW - Flexwall interrupt status word - Bit 5 initiates flexwall movement. 

FSSTAT - Flexwall system status word - Bit 7 enables flexwall movement. 

IACCW - Communications control word. 

IASTAT - Communications status word. 

JPOSN - Array of new (destination) jack positions (Inches). 

JPOSA - Array of averaged current jack positions (Inches). 

WPRS - Array of wall pressures (PSIA). 

/WASCOM/ NOJACK, NOCPT, XJACK, WL, IANAL, FMACH, PSTATIC, 
PTOTAL, TTOTAL, DENSITY, CREY, ALPHA, CHORD 
(See listing of WASCOM in Appendix B for variable descriptions) 


Output Messages : 

NASA LANGLEY RESEARCH CENTER 
TRANSONIC CRYOGENIC ADAPTIVE WALL TEST SECTION 

FLXWAS VERSION 3.0 

****** FLEXWALL CONTOURS INITIALIZED ****** 
============= RFADY TO STREAMLINE ============ 

FLXWAS> *** WAIT FOR TEST CONDITION CHECK *** 

*** ACQUIRING FLEXWALL PRESSURES *** 

FLXWAS> *** SINGLE ITERATION COMPLETE *** 

FLXWAS> ***** WAIT FOR ANALYSIS CHECK ***** 

TYPE IN ANY CHARACTER TO CONTINUE OR [WS] FOR WALLS S/LINED 
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5.1 Program FLXWAS (Continued) 


Output Messages (Continued) : 

*********************************** 

* STREAMLINING TERMINATED * 

* HARDWARE ERROR * 

*********************************** 

JACK STATUS 

# TOP BOTTOM 
(Data tabulated below) 

NX Y 

PRESS RETURN TO RECALL ’FLXOP’ MENU FOR NEXT PT 

******************************* 

* WALLS STREAMLINED * 

******************************* 

*********************************** 

* STREAMLINING TERMINATED * 

* SOFTWARE ERROR * 

*********************************** 

*********************************** 

* STREAMLINING TERMINATED * 

* JACK LIMIT REACHED * 
*********************************** 

JACK STATUS 

# TOP BOTTOM 
(Data tabulated below) 

FLXWAS> *** RE-ANALYSIS COMPLETED *** 

Processing : 

1) Load fixed tunnel data into shared region WASCOM. 

2) In re-analysis mode, jump to 13. 

3) Initialize MAXNET link. 

4) Select initial wall contours for next data point (Subroutine INITWAL). 

5) Set chord for empty test section streamlining. 

6) Move flexwalls to initial contours. 

7) Wait for CPU-B Operator to initiate the streamlining cycle. 

8) DO - Enter streamlining cycle. 

9) In Wait mode, wait for test condition update. 

10) Read Digital Constants Panel (Subroutine DIGICO). 

1 1) Acquire data from the flexwall test section (Subroutine FRQST). 

12) Re-locate tunnel data in WASCOM. 

13) In re-analysis mode, load tunnel data from disk (Subroutine WALDAT). 

14) Select “Straight Wall” reference contours for next iteration (Subroutine 
WALDAT). 

15) Output raw data to disk if required (Subroutine WALDAT). 

16) Compute wall boundary layers (Subroutine STAR). 

17) Compute new wall contours for streamlining (Subroutine WAS). 

18) Sum residual wall interferences (Subroutine SUME). 

19) Check streamlining status. 


(Continued on next page) 
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5.1 Program FLXWAS (Continued) 


Processing (Continued) : 

20) If walls are streamlined, output reduced data information and jump to 30. 

21) In Single Iteration mode, set data acquisition bit and then wait to 
continue. 

22) Printout FLXCOM data on first pass only. 

23) Dump core device to the lineprinter on the first pass only. 

24) Output reduced data to lineprinter and disk (Subroutine OUT). 

25) In Pause mode, wait for response from CPU- A operator. 

26) If excessive iterations, abort streamlining, jump to 30. 

27) In re-analysis mode, jump to 31. 

28) Move flexwalls to new contours for next iteration. 

29) ENDDO - Continue the streamlining cycle. 

30) Exit conditions. 

31) Exit the system. 


Exception Handling : 

Whenever an error condition is encountered (STRSTAT = -1) an appropriate 
message is displayed on the operator console and lineprinter, IASTAT is set appropriately, CPU- 
13 is notified, and FLXWAS stops executing. 

If the CPU-A operator enters a non-numeric response when a numeric answer is 
required, no error message is written. Instead, the task waits until a valid response is supplied. 
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5.2 Subroutine INITWAL (Version 1.9) - Flexwall initialization subroutine 

(See Appendix A. 2 for a listing) 

This subroutine selects the appropriate initial wall contours for the next streamlining cycle and 
loads the jack positions into the private shared regions FLXCOM and WASCOM, and the 
associated external (imaginary) wall velocity increments into WASCOM. The subroutine selects 
initial wall contours with respect to operator defined setup test parameters in the WASPAR table 
in FLXCOM (Mach number, Reynolds number and angle of attack). The selection follows a 
sequence shown below until an appropriate set of wall contours is found: 

i) If a fictitious angle of attack of 99.0 is entered in the set-up parameters table 
then select “aerodynamically straight” contours from the Reference Table 
datafile (using Subroutine STWALL). 

ii) If a fictitious angle of attack of 88.0 is entered in the set-up parameters table 
then let the tunnel operator select a specific set of wall contours from the 
reduced data datafile. 

iii) Look at the directory of the reduced data datafile and select a “good” set of 
wall contours with respect to the data in the set-up parameters table. 

iv) If no “good” set of wall contours can be found, then calculate a set of wall 
contours based on rough estimates of model lift and drag coefficients as well 
as data in the set-up parameters table (using Subroutine WALCAL). 

* 

For more details about the selection of “aerodynamically straight” wall contours see sub-section 
5.3 (Subroutine STWALL). A description of the software available to calculate initial wall 
contours, when necessary, can be found in sub-section 5.4 (Subroutine WALCAL). The 
associated computations are described in Appendix G. 

The selection of “good” wall contours from the wall library requires some qualification. “Good” 
wall contours are defined as having the associated test parameters matching the operator defined 
set-up parameters within the following limits: 

Above Mach 0.7, Mach number match better than .02 
Angle of attack match better than 4.0 degrees 

In addition, there are some special requirements. The software only considers those wall contours 
with associated Mach numbers equal or less than the set-up Mach number (plus a tolerance of 
0.01) are considered. Also, the software only considers those wall contours with an associated 
angle of attack modulus less than the modulus of the set-up angle of attack (plus a tolerance of 
0.2°). The need for small adjustments to the operator defined set-up parameters is to 
accommodate small deviations in actual test parameters from demanded values. The selection 
process starts by selecting the last set of wall contours stored in the library of wall data (Usually 
the streamlined wall contours for the last data point) and then attempts to find a better set by 
scanning the complete directory from the last wall data record to the first. Reynolds number has 
only a small influence on the wall contours but this is model size and shape dependent. 
Consequently, we keep Reynolds number information available to use in the selection process 
should it become necessary. The large tolerance used in the angle of attack match is to provide 
the software with the necessary flexibility to deal with any test program. 

Date 04/03/87 

Included Source Files : 

FLXCOM - Flexwall Control System Common Definitions. 

WASCOM - WAS Common Definitions. 

FLXTYP - Flexwall Common Type Declarations. 

FWPTYP - Flexwall “WASPAR” Type Declarations. 

FWPEQU - Flexwall “WASPAR” Equivalences. 
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5.2 Subroutine INITWAL (Continued) 


Logical Files Used : 

CO - Input/output to console 
LO - Output to lineprinter 
12 - Reduced data datafile 

Shared Regions : 

FLXCOM 

WASCOM 

User-Defined Subroutine Calls : 

WALCAL 

STWALL 

ERROR 

Inputs : 

/FLXCOM/ WASPAR 

WASPAR - Table of operator defined set-up parameters (see Appendix B). 

/WASCOM/ NOJACK, CHORD 
NOJACK - Number of flexwall jacks. 

CHORD - Model chord (Inches). 

Reduced data datafile - KBUFF, LBUFF, TMACH, TREYNO, TALPHA, BUFF 
(See datafile management assignments in listing of TABASS in Appendix E.) 


O utputs : 

/FLXCOM/ JPOSN, STRSTAT 
JPOSN - Array of new (destination) jack positions (Inches). 

STRSTAT - Streamline status word. 

/WASCOM/ XORIG, YORIG, TOPY, BOTY, TWYEL, BWVEL 
XORIG - Horizontal distance of model 1/4 chord point upstream of model pivot (Inches). 
YORIG - Vertical distance of model 1/4 chord point above the model pivot (Inches). 
TOPY - Array of top wall jack positions for the initial contour (Inches). 

BOTY - Array of bottom wall jack positions for the initial contour (Inches). 

TWVEL - Array of top wall external velocities for the initial contour (v/UO). 

BWVEL - Array of bottom wall external velocities for the initial contour (v/UO). 


Output Messages : 

INITWAL VER 1.9> SETUP PARAMETERS (5 values listed on next line) 

**************************************************************************************** 

INITIAL WALL CONTOURS - RECORD ### MACH #.### RN ####E### AOA ###.## 

**************************************************************************************** 

**************************************************************************************** 

INITIAL WALL CONTOURS ‘STRAIGHT’ FOR NEXT POINT 
^*************************************************^***^********************************* 


INITWAL> STRAIGHT WALL DATA ERROR 

INITWAL> INPUT RECORD NO. FOR INITIAL CONTOURS (0-EXIT) 
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5.2 Subroutine INITWAL (Continued) 

Processing : 

1) Display setup parameters. 

2) If “aerodynamically straight” wall contours required jump to 12. 

3) Select initial wall contours from reduced data library and load 
from disc. 

4) If no wall contours in library (NREC < 7) jump to 1 1. 

5) Select data records with wall information (NREC > 6). 

6) Choose previous wall contours until a better set is found where 
ISAME = 3. 

7) Define tolerances for selection of wall contours: 
TMD1FF,TRDIFF,TADIFF. 

8) If a very good set of wall contours are found (IGOOD = 3) then 
jump to 10. 

9) If no good set of wall contours (IGOOD < 2) can be found then 
jump to 1 1. 

10) Load good wall contour data (IGOOD > 1) into the private 
shared region WASCOM, then jump to 13. 

11) Compute initial wall contours for current test parameters 
(Subroutine WALCAL) then jump to 13. 

12) Select initial wall contours from the Reference Table datafile 
(Subroutine STWALL). 

13) Load up new jack positions for initial wall contours in private shared 
region FLXCOM. 

14) Return to main program. 


Exception Handling : 

Whenever an error condition is encountered (STRSTAT = -1) an appropriate 
message is displayed on the operator console and the lineprinter, subroutine ERROR is called to 
provide additional error information, control returns to the main program. 
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5.3 Subroutine STWALL (Version 1.5) - “Aerodynamically straight” wall data subroutine 

(See Appendix A. 3 for a listing) 

This subroutine acquires the appropriate reference wall data for the current test conditions, i.e. 
“aerodynamically straight” wall data from the Reference Table datafile. Wall contours and 
boundary layer displacement thicknesses (d*s) are found from data sets within the Reference 
Table datafile. We have configured the directory of this datafile with a 10 by 10 matrix based on 
Mach number and Reynolds number. The software finds four data sets (from the 100 in the 
datafile) which bracket the given Mach number and Reynolds number. The software linearly 
interpolates between these data sets to find the appropriate reference wall shapes and d*s for the 
given test conditions. 

Date 12/22/86 
Included Source Files : 

FMASSIGN - Reference Table Datafile Management Assignments. 


Logical Files Used : 

LO - Output to lineprinter 
10 - Reference table datafile 


Shared Regions : None 


User-Defined Subroutine Calls : 

FILESORT - Sort array into ascending order (Listed with STWALL). 
GETDATA - Get wall data from the reference table (Listed with STWALL). 


Inputs : 


Call statement - FMACH, REYNO 
FMACH - Free stream Mach number. 

REYNO - Unit Reynolds number per foot. 

Reference Table datafile - IBUFF, JBUFF 
IBUFF - Reference table directory record buffer (See Appendix D). 
JBUFF - Wall data record buffer (See Appendix D). 


Outputs : 


Call statement - TWY, BWY, DST, DSB, IERROR 
TWY - Array of top wall jack positions for “aero, straight” contour (Inches). 
BWY - Array of bottom wall jack positions for “aero, straight” contour (Inches). 
DST - Array of top wall d* values for “straight” contour (Inch). 

DSB - Array of bottom wall d* values for “aero, straight” contour (Inch). 
IERROR - Output error code. 
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5.3 Subroutine STWALL (Continued) 

Output Messages : 

STWALL> VERSION 1.5 STRAIGHT WALL DATA 

INTERPOLATION RECORDS = ### , ### , ### , ### 

MACH NO. RANGE ##.## - ##.## 

REYNOLDS NO. PER FT ###E## - ###E## 

TOP WALL JACK POSITIONS 

BOTTOM WALL JACK POSITIONS 

TOP WALL D* CONTOUR 

BOTTOM WALL D* CONTOUR 


Processing : 

1) Initialization of datafile pointers. 

2) Sort Mach numbers in ascending order (Subroutine FILESORT). 

3) Sort Reynolds number in ascending order (Subroutine FILESORT). 

4) Determine which Mach numbers bracket desired Mach numbers. 

5) Determine which Reynolds numbers bracket desired Reynolds number. 

6) Get wall data (Subroutine GETDAT). 

7) Interpolate data between four sets of data. 

8) Load interpolated data into working arrays. 

9) Return to calling subroutine. 


Exception Handling : 

If an error occurs during execution then control will return to the calling 
subroutine with one of the following output error codes in variable IERROR: 

1 - Failure to bracket Mach no. on datafile 

2 - Failure to bracket Reynolds no. on datafile 

3 - Combination of above failures on datafile 

4 - Missing data records on datafile 

The no error condition is IERROR = 0 
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5.4 Subroutine WALCAL (Version 1.5) - Wall shape calculation subroutine 

(See Appendix A. 4 for a listing) 

This subroutine calculates streamline contours and the associated pressure distributions in the 
farfield of a thin airfoil based on expected test conditions and rough estimates of model 
performance given by the tunnel operator. Linearised potential flow is assumed with 
compressibility effects taken into account by use of the Prandtl-Glauert factor. A full 
description of the computations in this subroutine is given in Appendix G. 

Date 09/29/88 

Included Source Files : 

WASCOM - WAS Common Definitions. 


Logical Files Used : 

CO - Input/output to console 
LO - Output to lineprinter 


Shared Regions: 

WASCOM 


User-Defined Subroutine Calls : 

STWALL 

ERROR 

BLOCK - Computes disturbance velocity due to blockage (Listed with WALCAL). 
WAKE - Computes disturbance velocity due to wake (Listed with WALCAL). 
LIFT - Computes disturbance velocity due to lift (Listed with WALCAL). 


I n p u ts: 

/WASCOM/ NOCPT, CHORD, XORIG, XJACK 
NOCPT - Number of wall computing points. 

CHORD - Model chord (Inches). 

XORIG - Horizontal distance of model 1/4 chord upstream of model pivot (Inches). 
XJACK - Array of jack X co-ordinates (Inches). 

Call statement - SPMACH, SPREYN, SPAOA 
SPMACH - Setup parameters Mach number. 

SPREYN - Setup parameters Reynolds number. 

SPAOA - Setup parameters angle of attack. 

Console keyboard r EPS, CL, CD 
EPS - Model’s maximum section thickness (%chord). 

CL - Estimated model lift coefficient. 

CD - Estimated model drag coefficient. 


Outputs : 

/WASCOM/ TOPY, BOTY, TWVEL, BWVEL 
TOPY - Array of top wall jack positions for computed shape (Inches). 

BOTY - Array of bottom wall jack positions for computed shape (Inches). 
TWVEL - Array of top wall external velocities over computed shape (v/UO). 
BWVEL - Array of bottom wall external velocities over computed shape (v/UO). 
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5.4 Subroutine WALCAL (Continued) 

Output Messages : 

WALCAL> ENTER ESTIMATED LIFT- AND DRAG COEFFICIENTS 

WALCAL> ENTER AIRFOIL MAXIMUM THICKNESS (%) 0-EXIT 
THICKNESS NOT TO EXCEED 20% 

WALCAL> INPUT ERROR THICKNESS IS ###.##% 

WALCAL> **** CHORD ERROR CHECK CPU-B RTP VALUE **** 

WALCAL> AIRFOIL GEOMETRY: CHORD ##.## INCHES MAXIMUM THICKNESS##% 

WALCAL> FLOW PARAMETERS: FREE STREAM MACH NUMBER ###.## 

CHORD REYNOLDS NUMBER ####E## 

LIFT COEFFICIENT ###.### 

DRAG COEFFICIENT ###.### 

WALCAL> INITIAL WALL CONTOURS (Followed by table of jack positions 

and associated wall velocities (v/UO)) 


Processing : 

1) Define functions. 

2) Input section from operator console. 

3) Load test parameters into work variables. 

4) Define jack positions relative to model based reference system. 

5) Initialize singularity strengths. 

6) Compute wall displacement due to blockage effect. 

7) Compute wall displacement due to lift effect. 

8) Compute wall displacement due to wake blockage. 

9) Determine wall contours due to lift and blockage. 

10) Compute the disturbance velocity tangential to the walls. 

11) Determine the “aero, straight” wall shapes for test conditions 
in the setup parameter table. 

12) Determine total wall deflections. 

13) Output data summary. 

14) Interface data to private shared region WASCOM. 

15) Limit Jack #1 and #22 movement. 

16) Determine jack movements for the variable diffuser. 

17) Return to subroutine INITWAL. 


Exception Handling : 

If an excessive model thickness (> 20%) is accidentally entered by the operator 
then the operator is given an opportunity to correctly enter the model thickness. 

If a strange chord value is found, an error message is sent to the CPU-A console 
and the WAS software is halted. 
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5.5 Subroutine WALDAT (Version 2.3) - Wall data acquisition subroutine 

(See Appendix A. 5 for a listing) 

This subroutine selects “aerodynamically straight” wall data for the current test conditions from 
the Reference Table datafile (See Appendix D). If IANAL = 3, the software stores raw wall and 
tunnel data in the raw data datafile. Under all analysis modes, each raw data set is re-located 
into working arrays located in the private shared region WASCOM. The current position of the 
wall jacks is checked against the expected position to warn of position transducer (LVDT) drift. 

Date 06/15/88 

Included Source Files: 

FLXCOM - Flexwall Control System Common Definitions. 

WASCOM - WAS Common Definitions. 

FLXTYP - Flexwall Common Type Declarations. 

Logical Files Used: 

CO - Input/output to console 
LO - Output to lineprinter 
1 1 - Raw data datafile 

Shared Regions: 

FLXCOM 

WASCOM 

User-Defined Subroutine Calls: 

STWALL 

ERROR 

Inputs: 

/FLXCOM/ XBMACH, XBPS, XBPT, XBTT, XBRHOS, XREYNO, ALPHA, 
XCHORD, IBHOUR, IBMIN, IBTSTNR, IBRUNNR, IBPTNR, WPRS, JPOS 
XBMACH - Test Mach number. 

XBPS - Reference static pressure (PSIA). 

XBPT - Reference total pressure (PSIA). 

XBTT - Reference total temperature (K). 

XBRHOS - Static density of working fluid (Slugs/ft 3 ). 

XREYNO - Test chord Reynolds number (millions). 

XBAOA - Test model angle of attack (degrees). 

XCHORD - Model chord (Inches). 

IBHOUR - Hour data acquired. 

IBMIN - Minute data acquired. . 

IBTSTNR - Test number. 

IBRUNNR - Run number. 

IBPTNR - Data point number. 

WPRS - Array of wall pressures (PSIA). 

JPOS - Array of current wall jack positions (Inches). 

/WASCOM/ NOJACK., IANAL, NOCPT, TOPY, BOTY 
NOJACK - Number of wall jacks. 

IANAL - Analysis mode designator. 

NOCPT - Number of wall computing points. 

TOPY - Array of demanded top wall jack Y co-ordinates (Inches). 

BOTY - Array of demanded bottom wall jack Y co-ordinates (Inches). 

Raw data datafile - KBUFF, LBUFF (See listing of TABASS in Appendix E.l.) 
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5.5 Subroutine WALDAT (Continued) 


Outputs : 

/WASCOM/ DSTAS, DSBAS, TWYAS, BWYAS, TOPWP, BOTWP 
DSTAS - Array of top wall d* thicknesses on “aero, straight” contouf (Inches). 

DSBAS - Array of bottom wall d* thicknesses with “aero, straight” contour (Inches). 

TWYAS - Array of top wall jack Y co-ordinates relative to “aero, straight” contour (Inches). 
BWYAS - Array of bottom wall jack Y co-ordinates relative to “aero, straight” contour (Inches). 
TOPWP - Array of top wall tapping pressures (PSIA). 

BOTWP - Array of bottom wall tapping pressures (PSIA). 

Raw data datafile - KBUFF, LBUFF, DB 
KBUFF - Directory record buffer (See listing of TABASS in Appendix E). 

LBUFF - Directory record buffer (See listing of TABASS in Appendix E). 

DB - Raw data record buffer (See Appendix E). 


Output Messages: 

ENTER RECORD NO. FOR DATA RE-ANALYSIS 

WALDAT> WARNING - USING LAST RECORD AVAILABLE *** 

WALDAT> RAW DATA ERROR 

FLXWAS RAW DATA FROM RECORD ### (Followed by table of raw data) 
WALDAT> STRAIGHT WALL DATA ERROR 
WALDAT> JACK ## POSITION ERROR 


Processing: 

1) Decide if re-analysis mode selected, if yes jump to 5. 

2) Load raw data into array DB. 

3) If IANAL = 0, jump to 6. 

4) Send raw data in ‘DB’ to the raw data datafile. 

5) Read loaded data from the raw data datafile as a check or re-analysis. 

6) Select “aerodynamically straight” wall data record and acquire wall data. 

7) Determine jack positions relative to “aero, straight” contours. 

8) Load wall pressures into work arrays. 

9) Check wall data for auto streamlining. 

10) Return to main program. 


Exception Handling : 

Whenever an error condition is encountered (STRSTAT = -1) an appropriate 
message is displayed on the operator console and lineprinter, subroutine ERROR is called to 
provide additional error information, control returns to program FLXWAS. 

A jack position error due to LVDT drift is displayed as a warning to the operator, 
subroutine ERROR is called to provide additional information. If the error is severe, then a 
hardware error will result when the walls are moved. 

A warning is given if the last available record on the raw data datafile is being 
used. This datafile needs to be copied to tape and then initialized (See Appendix E). 
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5.6 Subroutine STAR (Version 1.3) - Flexwall boundary layer assessment subroutine 

(See Appendix A. 6 for a listing) 

This subroutine numerically solves the Von Karman momentum integral equation to compute 
values for the local wall boundary layer displacement thickness (d*). (See sub-section 4.2 for 
more details.) Local wall Mach numbers are calculated using isentropic flow relationships. A 
warning of sonic velocity at the flexwalls is sent to the CPU- A console and the lineprinter. 

Date 12/23/86 

In c l u ded S o urce F iles: 

WASCOM - WAS Common Definitions. 

Logical Files Used : 

CO - Output to console 
LO - Output to lineprinter 

Shared Regions : 

WASCOM 

User-Defined Subroutine Calls : None 

Inputs: 

/WASCOM/ NOCPT, XJACK, TOPWP, BOTWP, PTOTAL, DENSITY, CREY, 
CHORD, DSTAS, DSBAS 

NOCPT - Number of wall computing points. 

XJACK - Array of jack X co-ordinates (Inches). 

TOPWP - Array of top wall tapping pressures (PSIA). 

BOTWP - Array of bottom wall tapping pressures (PSIA). 

PTOTAL - Reference total pressure (PSIA). 

DENSITY - Working fluid density (Slugs/ft 3 ). 

CREY - Chord Reynolds number. 

CHORD - Model chord (Inches). 

DSTAS - Array of top wall d* values for “aero, straight” contour (Inches). 

DSBAS - Array of bottom wall d* values for “aero, straight!’ contour (Inches). 

Outputs : 

/WASCOM/ TWDS, BWDS, TWMACH, BWMACH 
TWDS - Array of top wall d* values for current contour (Inches). 

BWDS - Array of bottom wall d* values for current contour (Inches). 

TWMACH - Array of Mach numbers along current top wall contour. 

BWMACH - Array of Mach numbers along current bottom wall contour. 


Output Messages : 

BOUNDARY LAYER CALCULATIONS 
TOP WALL 

TAP NO. DU/DX MACH NO. D* DD* 

(Table of data) , 

BOTTOM WALL 
(Table of data) 

FLXWAS> *** WARNING - SONIC VEL. AT TOP WALL JACK ## *** 
FLXWAS> *** WARNING - SONIC VEL. AT BOTTOM WALL JACK ## *** 
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5.6 Subroutine STAR (Continued) 


Processing : 

1) Calculate d* at each wall jack location using sets of data for three 
jack locations. 

2) Load top wall pressures. 

3) Load bottom wall pressures. 

4) Local Mach no. calculations. 

5) Calculate local wall flow velocities. 

6) Assume a turbulent b/1 growth to the second measuring point on 
each wall. 

7) Calculate the velocity gradient at measuring point 1. 

8) Guess the size of d*. 

9) Calculate components of the M.I. Eqn. 

10) Calculate d* from dd*/dx for last measuring point on each wall. 

11) Calculate d* from dd*/dx for second measuring point on each 
wall. 

12) Calculate d* from dd*/dx for all other measuring points. 

13) Check d* guess and iterate to a solution. 

14) Store correct values of d* (Inches). 

15) Calculate dd*. 

16) Check for sonic flow on the flexwalls. 

17) Return to main program. 


Exception Handling : 

A warning is given when sonic velocity is encountered at any of the wall jacks. 
The operator should then proceed with caution in the knowledge that wall streamlining is no 
longer “routine” and may not be possible at all. 
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5.7 Subroutine WAS (Version 1.5) - Wall adjustment strategy subroutine 

(See Appendix A. 7 for a listing) 

The Wall Adjustment Strategy (WAS) predicts new wall contours for test section self-streamlining 
and computes new external (imaginary) velocities over these new contours 5 (See sub-section 4.1 
for more details). The subroutine is configured for two modes of streamlining (See section 4.1): 
A) Infinite flow (Analysis mode designator 1ANAL = 0 or 3); B) Empty test section (I ANAL = I). 

Date 12/22/86 

Included Source Files: 

WASCOM - WAS Common Definitions. 

Logical Files Used: 

CO - Output to console 
LO - Output to lineprinter 

Shared Regions: 

WASCOM 

User-Defined Subroutine Calls: None 

Immts: 

/WASCOM/ NOCPT, FMACH, TWCPLF, BWCPLF, TWSF, BWSF, PSTATIC, 
TOPWP, BOTWP, TWVEL, BWVEL, XJACK, TWMACH, BWMACH, WMOVF, IANAL 

NOCPT - Number of wall computing points. 

FMACH - Free stream Mach number. 

TWCPLF - Top wall coupling factor. 

BWCPLF - Bottom wall coupling factor. 

TWSF - Top wall scaling factor. 

BWSF - Bottom wall scaling factor. 

PSTATIC - Reference static pressure (PS1A). 

TOPWP - Array of top wall tapping pressures (PS1A). 

BOTWP - Array of bottom wall tapping pressures (PSIA). 

TWVEL - Array of top wall external velocities for current contour (v/UO). 

BWVEL - Array of bottom wall external velocities for current contour (v/UO). 

XJACK - Array of jack X co-ordinates (Inches). 

TWMACH - Array of top wall Mach numbers for current contour. 

BWMACH - Array of bottom; walj Mach numhers for current contour. 

WMOVF - Wall movement factor for empty test section streamlining. 

IANAL - Analysis mode designator. 

Outputs : 

/WASCOM/ TWVDIF, BWVDIF, TWVSQ, BWVSQ, TWNVEL, BWNVEL, 
TWMOV, BWMOV 

TWVDIF - Array of top wall velocity differences (dv/UO). 

BWVDIF - Array of bottom wall velocity differences (dv/UO). 

TWVSQ - Array of top wall velocities squared (v 2 /U0 2 ). 

BWVSQ - Array of bottom wall velocities squared (v 2 /U0 2 ). 

TWNVEL - Array of top wall external velocities for the new (destination) contour (v/UO). 
BWNVEL - Array of bot. wall external velocities for the new (destination) contour(v/U0). 
TWMOV - Array of top wall jack movements for the new (destination) contour (Inches). 

BWMOV - Array of bottom wall jack movements for the new (destination) contour (Inches). 
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5.7 Subroutine WAS (Continued) 


Output Messages : 

****** WAS VI. 5 COMPUTING NOW !! ****** 

COUPLING FACTORS ##.## ##.## SCALING FACTORS ##.## ##.## 
WALL MOVE FACTOR (DY/DME) ##.### 


Processing : 

1) DO - Compute the velocity imbalance/vorticity at each wall 

computing point and external velocities for the predicted wall 
contours for the next iteration. $ 

2) Apply Prandtl-Glauert factor to measured top wall Cps. 

3) Apply Prandtl-Glauert factor to measured bottom wall Cps. 

4) Apply scaling factors to the external velocity calculations. 

5) ENDDO - Apply coupling factors to the external velocities. 

6) Freeze calculations for jack #1 and #22. 

7) For empty test section streamlining jump to 22. 

8) Make the first mid-jack co-ordinate at the wall anchor point to 
ensure a zero wall slope at this location. 

9) Determine other mid-jack co-ords between wall computing points. 

10) DO-Piecewise cubic curve fit to the wall vorticity using sets of 
four computing points (labeled 1,2,3, 4). 

11) ENDDO-Calculate coefficients for each piecewise cubic curve fit. 

12) At each mid-jack point, integrate the vorticity along each wall to 
find the induced vertical velocities, assumed normal to the top 
and bottom walls, which must be canceled by changes in the free 
stream component caused by local adjustments of wall slope. 

13) Initialize wall movement demand accumulators. 

14) Set wall slopes at the wall anchor points equal to zero. 

15) DO-Find the jack movements required for wall streamlining, by 
performing integrations of piecewise quadratic curves fitted to 
sets of three wall slopes. 

16) Top wall - movement demand coefficients. 

17) Bottom wall- movement demand coefficients. 

18) Scale jack movement demands. 

19) ENDDO-Couple jack movement demands. 

20) Compute jack #1 and #22 movement. 

21) Jump to 24. 

22) Calculate jack movement demands for constant wall Mach number 
during empty test section streamlining. 

23) Set imaginary (external) velocities to free stream. 

24) Determine jack movement demands for the variable diffuser. 

25) Return to main program. 


Exception Handling : None 
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5.8 Subroutine SUME (Version 1.6) - Wall induced interferences assessment 

subroutine (See Appendix A. 8 for a listing) 

This subroutine sums estimates of the wall induced errors in the test section for each set of wall 
shapes used during a streamlining cycle. Wall induced interferences are calculated along the test 
section centerline and the model chord-line (See sub-section 4.3 for more details). We use these 
interferences as measures of streamlining quality for deciding when the walls are streamlined. 

Date 02/18/87 

Included Source Files : 

FLXCOM - Flexwall Control System Common Definitions. 

WASCOM - WAS Common Definitions. 

FLXTYP - Flexwall Common Type Declarations. 

Logical Files Used : 

CO - Output to console 
LO - Output to lineprinter 

Shared Regions : 

FLXCOM 

WASCOM 

User-Definded Subroutine Calls: None 
Inputs : 

/WASCOM/ ALPHA, CHORD, XORIG, YORIG, NOJACK, NOCPT, BWVEL, 
TWVEL, TWVSQ, BWVSQ, TWYAS, BWYAS, DSTAS, DSBAS, TWDS, BWDS, TWVDIF, 
BWVDIF, XJACK, WL, IANAL, BETA (See listing of shared region WASCOM in Appendix B 
for variable descriptions) 

Qytputs : 

/FLXCOM/ STRSTAT 
STRSTAT - Streamlining status word. 

Qutpyt Mes sages: 

WALL CP ERROR 

TOP - ###.#### BOTTOM - ###.### ##.## (XORIG) ##.## (YORIG) 

SUME> VI. 6 RESIDUAL ERRORS 
XO U/UFS V/UFS 
(Table of values on tunnel centerline) 

MODEL ERRORS 
(Table of values on model chordline) 

EFFECT DELTA CL 

ALPHA ERROR = #.### DEGREES ###.### 

INDUCED CAMBER = #.### DEGREES ###.### 

CP ERROR (1/4 CHORD) = #.### 

CP ERROR (AVERAGE) = #.### ###.### 

RESIDUAL INTERFERENCES = ###.#### ###.#### ###.#### 

A.O.A. CAMBER CP 

ITERATION ## CP ERROR - TOP ##.### BOT ##.### 

RESIDUALS - ###.#### , ###.#### , ###.#### 
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5.8 Subroutine SUME (Continued) 

Processing : 

1) Set acceptable levels of residual interference. 

2) Calculate average wall Cp errors (Big E). 

3) Sum wall induced velocities on tunnel centerline. 

4) Betaize the vertical ordinate of the vortex sheet. 

5) Sum wall induced velocities along model chordline. 

6) Betaize the vertical ordinate of the vortex sheet. 

7) Integrate the induced camber over the model chord. 

8) Assess the quality of wall streamlining and decide if the 
streamlining cycle can be terminated. 

9) Output data summary to operator console. 

10) Return to main program. 


Exception Handling : 

None 
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5.9 Subroutine OUT (Version 2.1) - Data manipulation and display subroutine 

(See Appendix A.9 for a listing) 

This subroutine prints out a data summary on each wall adaptation iteration, on the lineprinter. 
The software also sorts out the reduced wall data and loads this data in the reduced data datafile 
(wall library) as required. 

Date 12/31/86 

Included Source Files : 

FLXCOM - Flexwall Control System Common Definitions. 

WASCOM - WAS Common Definitions. 

FLXTYP - Flexwall Common Type Declarations. 


Logical Files Used : 

CO - Output to console 
LO - Output to lineprinter 
12 - Reduced data datafile 


Shared Regions: 


FLXCOM 

WASCOM 


User-Defined Subroutine Calls : 
ERROR 


Inputs : 

/FLXCOM/ STRSTAT 
STRSTAT - Streamlining status word. 

/WASCOM/ CREY, CHORD, IANAL, NOJACK, FMACH, ALPHA, TOPY, 
BOTY, TWMOV, BWMOV, TWYAS, BWYAS, TWNVEL, BWNVEL, TWDS, BWDS 
(See listing of shared region /WASCOM/ in Appendix B for variable descriptions.) 


Outputs : 

/FLXCOM/ JPOSN 

JPOSN - Array of new (destination) jack positions (Inches), 

/WASCOM/ TWVEL, BWVEL, TOPY, BOTY 
TWVEL - Array of top wall external velocities for the new (destination) contour (v/UO). 

BWVEL - Array of bot. wall external velocities for the new (destination) contour (v/UO). 

TOPY - Array of top wall new (destination) jack positions (Inches). 

BOTY - Array of bottom wall new (destination) jack positions (Inches). 

Reduced data datafile - KBUFF, LBUFF, TMACH, TREYNO, TALPHA, 
TCHORD, DATA (See listing of TABASS in Appendix E for variable descriptions) 


( 
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5.9 Subroutine OUT (Continued) 


Output Messages: , 

DATA SUMMARY - EMPTY TEST SECTION Sf REAMLINING 

DATA SUMMARY - RE-ANALYSIS OUTPUT 

DATA SUMMARY - DEVELOPMENT STREAMLINING 

DATA SUMMARY - INFINITE FLOW STREAMLINING 

TOP WALL 

JACK FROM ST NEXT VEL MOVE JACKS - NOW - TO SET 
(Table of reduced data) 

BOTTOM WALL 

(Table of reduced data) 

*** WARNING - USING LAST RECORD AVAILABLE *** 

OUT> REDUCED DATA DISK FILE IS FULL !!! 

REDUCED DATA STORED IN RECORD ### 


Processing : 

1) Decide what sort of printout is required. 

2) Printout data summary and overwrite current jack positions with 
predicted positions (TOPY(*), BOTY(*)). 

3) Load up TWVEL and BWVEL for next iteration. 

4) If walls are streamlined (STRSTAT = 1) jump to 7. 

5) Read config. info, from the reduced data datafile. 

6) Write reduced data and config. info, to the reduced data datafile. 

7) Return to main program. 


Exception Handling : 

A warning is given to the operator that the last available record on the reduced 
data datafile is being used. This datafile needs to be copied to tape and then initialized (See 
Appendix E). If no corrective action is taken the next data point will result in an error trap 
(STRSTAT = -1) causing an error message, a call to subroutine ERROR for additional output 
information and the return of control to the main program. 



5.10 Subroutine ERROR (Version 1.2) - FLXWAS error message subroutine 

(See Appendix A. 10 for a listing) 

This subroutine generates error messages associated with the WAS software which are sent to the 
lineprinter and CPU- A console. 

Date 12/23/86 

Logical Files Used : 

CO - Output to console 
LO - Output to lineprinter 

Shared Regions : None 

User-Defined Subroutine Calls : None 

In puts : 

Subroutine call - IERROR 
IERROR - Input error code. 

Outputs: None 

Output Messages: 

FLXWAS> *** MACH NUMBER NOT BRACKETED ON DATAFILE *** 
FLXWAS>** REYNOLDS NUMBER NOT BRACKETED ON DATAFILE ** 
FLXWAS>** TEST PARAMETERS NOT BRACKETED ON DATAFILE ** 
FLXWAS> *** MISSING DATA RECORD ON DATAFILE *** 

FLXWAS> *** TOP WALL JACK POSITION ERROR *** 

FLXWAS> *** BOTTOM WALL JACK POSITION ERROR *** 

FLXWAS> *** DATAFILES NEED TO BE INITIALIZED *** 

Processing : None 

Exception Handling : None 
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6. SOFTWARE USER’S MANUAL 


6.1 FLXWAS Task Generation 


As mentioned in the introduction and overview, we use the WAS software on a Modcomp Classic 
mini-computer (CPU-A) as the executable module/task FLXWAS. This task is generated by first 
compiling the main program and the nine associated subroutines (listed in the overview), then 
linking together the ten object modules and any required modules from the system library of 
routines and functions. These two operations are performed using procedures unique to the 
Modcomp CPU-A system. We carry out the FORTRAN compiling operation using a procedure 
called XFTN. We simply activate this procedure by entering the command XFTN (Filename to 
be compiled), assuming the pointer JC is assigned to the memory partition where the procedure 
XFTN resides. The procedure expects the source of the filena'me to be residing on the User 
Source Library (USL) and the procedure deposits the compiled object in the User Library (UL). 
The WAS software includes the data common declarations, definitions and equivalences by 
accessing source files FLXCOM, FLXTYP, FWPTYP, FWPEQU, WASCOM and OAPCM on the 
USL. In addition, the WAS software includes the assignments for the Reference Table datafile by 
accessing the source file FMASSIGN on the USL. Hence, these source files must be on the USL 
for successful compilation of the WAS software modeules. Please note that if the user wishes to 
assign USL and UL to memory partitions other than the default condition, the user should make 
these assignments before activating XFTN. 

Linking is performed by a special procedure P:FLXWAS and the generated task FLXWAS is 
stored on the logical file AAA. This logical file must be assigned to a Load Module (LM) 
memory partition name before activating P:FLXWAS. The procedure overwrites any previous 
version of the task with the same filename on the memory partition assigned to AAA. 


Please note, anyone using procedures XFTN and PiFLXWAS should not assign USL, UL or AAA 
to any configuration controlled memory partitions without conforming to the software 
configuration control procedures on CPU-A. 

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** * * * * ** * * * 4c * * * * * * * * * * * * 


30 



6.2 Operating Environment 


The WAS software requires the following operating environment before we can successfully 
activate the software: 

1) Modcomp CPU- A system operational with both the system software 
OAP (Operational Acquisition Program) and the flexwall control system 
software activated with option AUTO selected in the flexwall task 
option word FLXOPT. Please note, in re-analysis mode (IANAL=2) 
the WAS software requires only task FLXOP to be active if the 
flexwall control system software aborts for any reason. 

2) Reference Table datafile of “aerodynamically straight” wall data 
existing on memory partition ASW (See Appendix D for how to view 
this datafile). 

3) Reduced data datafile existing on memory partition BSB (see Appendix 
E for how to view this datafile). 

4) Set-up parameters table assigned values in array WASPAR on the 
private shared region FLXCOM using the SP option from the FLXOP 
Menu. (See equivalences in listing of FWPEQU in Appendix B.) 

5) Computational factors and the analysis mode designator assigned 
appropriate values on the CPU-A Digital Constants Panel (DCP) as 
listed below: 

TWCPLF = Top wall coupling factor (Not used when IANAL = 1). 

BWCPLF = Bottom wall coupling factor (Not used when IANAL = 1). 

TWSF = Top wall scaling factor (Not used when IANAL = 1). 

BWSF = Bottom wall scaling factor (Not used when IANAL = 1). 

ANAL = Analysis mode designator IANAL. 

WMOVF = Wall movement factor (Only used when IANAL = 1). 

6) If IANAL is Not Equal to 2, Modcomp CPU-B system operational with 
OAP and RTP software active. 

7) If IANAL is Not Equal to 2, the operating mode for the WAS software 
(see sub-section 6.3) selected using task FLXOP or default options 
accepted for “routine” 2-D airfoil testing. 

8) If IANAL is Greater Than I, a raw data datafile existing on memory 
partition BSA (See Appendix E for how to view this datafile) 
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6.3 User Options 


6.3.1 Selection of analysis mode. We make this selection by assigning a value to the 
analysis mode designator IANAL at the CPU-A Digital Constants Panel. The analysis modes are 
described in Section 3 and summarized as follows: 

IANAL = 0 Infinite flow streamlining. 

IANAL = 1 Empty test section streamlining; 

IANAL = 2 Re-analysis of raw wall data. 

IANAL = 3 Development infinite flow streamlining. 


6.3.2 Setting the setup parameters table. This table contains important parameters for the 
selection of initial wall contours. We us6 task FLXOP to input values into this table under the SP 
option from the FLXOP Menu. The software stores this inputted data in array WASPAR located 
in the private shared region FLXCOM. The operator must select One of the following instruction 
sets for each data point: 


i) Routine initial wall contours - Set parameters SPMACH, SPREYN and SPAOA 
to the test conditions for the next data point. (Note that at execution time, the 
WAS software may request additional information from the CPU-A operator, 
i.e. model lift and drag coefficients, if no suitable set of wall data can be found 
in the reduced data datafile.) 


ii) Straight wall contours - Set test parameters to Mach no. and Reynolds no. for 
the next data point and input a fictitious SPAOA of 99.0. 


iii) Next wall contours in a streamlining cycle (halted for whatever reason) - Set 
test parameters to the current test parameters. 


iv) Particular wall contours in the reduced data datafile - Set test parameters to 
Mach no. and Reynolds no. of the next data point and input a fictitious 
SPAOA of 88.0. (Note that at execution time, the WAS software will request 
from the CPU-A operator, the record number of the set of wall data which 
the software will use to set the initial wall contours.) 
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6.3 User Options (Continued) 


6.3.3 Selection of operating mode. We make this selection using task FLXOP under the 
Select Options Menu. The menu gives the following options: 

SINGLE/CONTINUE 

WAIT/NOWAIT 

PAUSE/NOPAUSE 

We use these different modes to achieve the desired level of operator involvement, i.e. from 
casual observer to expert. The default mode selection is for routine infinite flow streamlining 
with select options of CONTINUE : NOWAIT : NOFAUSE. For routine empty test section 
streamlining the select options become CONTINUE : NOWAIT : PAUSE (See section 2). 

6.3.3. 1 Examples of the different operating modes are as follows: 


a) Manual termination of wall streamlining (Operating mode: PAUSE) 

(Use this option to take fixed wall data by declaring walls streamlined after one iteration) 

i) Select PAUSE operating mode using the FLXOP Select Options Menu. 

ii) Observe that the WAS software will now pause after each wall 

adaptation iteration and await a response from the CPU- A console, 
either to continue the streamlining cycle or finish the streamlining 
cycle by declaring the walls streamlined. 

iii) At each pause the operator can assess the brief iteration report on the 
CPU-A console and/or the more detailed printout. 


b) Model data acquisition during a streamlining cycle (Operating Mode: SINGLE) 

(Used to assess performance and effect of test section wall adaptation on model data) 

i) Select SINGLE mode using the FLXOP Select Options Menu. 

ii) Observe that Modcomp CPU-B will now take model data at the 

completion of each iteration of the streamlining cycle regardless of 
whether the walls are streamlined or not. (In CONTINUE mode, the 
model data is only acquired when the walls are declared streamlined.) 


c) Check test conditions before acquirinq wall pressures (Operating Mode: WAIT) 

(Used when test conditions become sensitive to wall adjustments, i.e. Mach nos.> 0.75 say) 

i) Select WAIT mode using the FLXOP Select Options Menu. 

ii) Observe a “Check test conditions” message will now be sent to the 
CPU-B operator before the WAS software acquires each set of wall 
pressures during a streamlining cycle. The WAS software is then put in 
a pause state. 

iii) When the test conditions are correct, the CPU-B operator gives a 

response to continue streamlining on the CPU-B terminal and the 
WAS software is re-activated to acquire another set of wall pressures. 
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6.4 Execution of the WAS software 


With the required operating environment established (as described in sub-section 6.2), we execute 
the WAS software using the IC option from the FLXOP Select Options Menu. We use the 
FLXOP Menu as the operator interface to the WAS software. The IC option executes the 
module/task FLXWAS, previously established from the Load Module partition LM. This 
execution triggers a sequence of events shown on Figure 5 for analysis modes IANAL = 0 or 1 
and on Figure 6 for IANAL =1. In re-analysis mode (IANAL = 2), a sequence of events take 
place similar to that for a single iteration of a routine data point with no acquisition of wall or 
tunnel pressures. If any errors occur during execution consult Appendix C for remedial actions. 

During all streamlining cycles, the first event is the selection of initial wall contours. A message 
“READY TO STREAMLINE” will then appear on the CPU-A console. The streamlining cycle is 
then resumed by the CPU-B operator requesting the AWTS to “CONFIGURE WALLS" via 
CPU-A. Then the important events in the streamlining cycle (as shown on Figures 5 and 6) are 
prompted by messages to the CPU-A console as follows: 


i) ACQUIRING FLEXWALL PRESSURES 

ii) WAS COMPUTING NOW 

iii) FMVSTR> MOVE IN PROGRESS 


Between prompts ii) and iii) a brief report is given on the quality of wall streamlining. For 
infinite flow streamlining (IANAL = 0 or 3) the report is as follows: 


************************************************************£* 

ITERATION ## CP ERROR - TOP ##.#### BOT ## .#### 
RESIDUALS - ###.#### , ###.#### , ###.#### 


The residuals are induced angle of attack (degrees), induced camber (degrees), and average Cp 
error along the model chord, respectively. More details on the Cp errors and the residuals can be 
found in sub-section 4.3. We have configured the software to declare the Walls Streamlined if 
the modulus of the residual interferences reduce below certain levels as shown below: 


Wall Cp Error < 0.01 

Induced AoA < 0.015° 

Induced Camber < 0.07° 
Cp Error < 0.007 


For empty test section streamlining (IANAL=1), the report consists of standard deviations in the 
wall Mach numbers. Values of 0.003 are the target, but the decision to accept the current values 
or press on remains with the CPU-A operator, because the PAUSE operating mode is used when 
1ANAL=1 . 
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6.4 Execution of WAS software (Continued) 


A streamlining cycle is complete when the message “WALLS STREAMLINED” appears on CPIJ- 
A console, i.e. Streamlining Status Word STRSTAT = 1. During normal infinite flow streamlining 
cycle, the following printout appears on the lineprinter: 


i) Setup parameters and associated initial wall contours. 

ii) Raw data and raw data datafile record number if stored. 

iii) Straight wall data associated with current test conditions. 

iv) Iteration heading. 

v) Wall boundary layer calculations together with wall Mach nos. 

vi) Coupling and scaling factors used in WAS calculations. 

vii) Wall Cp Errors. 

viii) Residual interferences. 

ix) Data summary of WAS calculations. 

x) Repeat of output ii) to ix) for each iteration. 

xi) Summary of wall pressures and position in decimal and hex when 
walls are streamlined (First data point of each day only). 


We show a typical example of the lineprinter output for just one iteration, on Figure 7. We 
obtained this output by running the WAS software in re-analysis mode. 


lit re-analysis mode, the execution of the WAS software causes a message “ENTER RECORD 
NO. FOR DATA RE-ANALYSIS” to appear on the CPU-A console. When the operator enters 
the desired record number, the software performs just one dummy iteration and stops. We can 
carry out further re-analysis of raw data by simply performing another execution of the WAS 
software. We describe software checks in section 7. 
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7. SOFTWARE COMPUTATION TESTS 


7.1 Technique Overview 


During development of the WAS software, we have developed several techniques for testing the 
WAS computations. These techniques rotate around the acquisition of dummy sets of raw wall 
and tunnel data sets read by WAS software in re-analysis mode (IANAL = 2) only. The software 
reads these data sets as if the data were actual measurements from the AWTS. Each set of raw 
data is loaded into a record in the raw data datafile with the following format: 


XBMACH = Test Mach number. 

XBPS = Reference static pressure - PTC (PSIA). 
XBPT = Reference total pressure - PTINF (PSIA). 
XBTT = Reference total temperature (K). 
XBRHOS = Flow density (Slug/ft A 3). 

REYNO = Test chord Reynolds number. 

XBAOA = Model incidence (degrees). 

CHORD = Model chord (inches). 

IBHOUR = Hour data acquired. 

IBMIN = Minute data acquired. 

IBTSTNR = Test number. 

IBRUNNR = Run number. 

IBPTNR = Data point number. 

WPRS = Array of wall tapping pressures (PSIA). 
JPOS = Array of wall jack positions (Inches). 


Either the WAS software (operating in any mode other than re-analysis) or the user can generate 
these data sets on the raw data datafile. For the computational tests described here, we typed in 
each set of raw data using a utility task DFINPUT (see section 8). During this operation, the 
software stores the new set of raw data in the next available record on the raw data datafile. 
When the user exits task DFINPUT, the software prints a hardcopy of the new data set with the 
associated record number. 


For all the computational tests, we used geometrically straight/flat wall shapes for the initial 
contours in the re-analysis, i.e. SPAOA = 99.0 in the set-up parameter table with the Reference 
Table datafile initialized using task SWINIT (see Appendix D). Consequently, the external 
(imaginary) wall velocities (stored in arrays TWVEL and BWVEL) are always zero together with 
the jack positions (stored in arrays TOPY and BOTY). XLORIG and YLORIG should also be 
zero in the set-up parameter table, which we modify using the SP option in the FLXOP Menu. 
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7.2 Software Test Techniques 

7.2.1 Raw data transfer check 

We can check the transfer of data from the raw data datafile into memory by viewing to the WAS 
software lineprinter output titled ’FLXWAS RAW DATA FROM RECORD ###’. This output 
has the same format as shown in sub-section 7.1. and should match the output of task DFV1EW 
for the same record in the raw data datafile. 

7.2.2 Boundary layer check 

We check the flexwall boundary layer calculations by loading constant pressures into the array 
WPRS equal to the reference static pressure XBPS. With this set of raw data, the boundary layer 
calculations should generate a flat plate boundary layer growth that is well known. 

7.2.3 Wall induced interference checks 

We can check the wall induced interferences by loading different sets of pressure data as follows: 

i) Wall pressures set to the reference static pressure generates zero interference. 

ii) The same pressures along each wall produce only blockage interference. 

iii) Wall pressure distributions from a potential flow simulation of a straight 
walled AWTS with a non-lifting model installed (found using program 
SWFLOW) allows checks of interference symmetry and magnitudes. 

iv) The transposing of top and bottom wall pressures allows checks of 
independence of top and bottom wall contributions to the wall induced 
interferences. 

7.2.4 Checks of wall shape predictions 

We have checked the wall adjustment calculations for infinite flow streamlining. Again we have 
used different sets of wall pressures as the raw data for each re-analysis as follows: 

i) We check the predicted direction of movement by observing jack movement 
demands away from the tunnel centerline with a set of wall pressures lower 
than the reference static pressure XBPS. 

ii) We check for any effects of sign changes in the raw data by transposing sets of 
dummy wall data from the top to the. bottom wall and visa versa. 

iii) We use wall pressures from a potential flow simulation (see sub-section 7.3) to 
perform a numerical check of the basic WAS theory i) * * * * 6 . This check is made with 
compressible flow corrections made insignificant. We treat each flexwall 

separately with wall coupling factors set to zero. In addition, we do not scale 
the wall movements and the wall scaling factors are set to unity. We check 
that the predicted wall shapes (shown on Figure 7) should closely match an 
exact infinite flow streamline shape for the same test conditions (from 
program TSFLOW). The set of raw data used in this check corresponds to 
theoretical wall data (from program SWFLOW) where the model representation 
has a normalized vortex strength (circulation) of 0.5 and a free stream Mach 
number of 0.3 -t For ease of use this raw data set is Run 999 on the FLXWAS 
software test datafile tape. 

iv) Using the same set of wall data as in iii) above, we check the effect of the 
coupling and scaling factors by varying the magnitude of these factors and 
observing the changes to the predicted wall shapes. 

v) We use any set of dummy wall data which causes the WAS software to predict 
a wall movement at Jack #18 to check the movement demands for the variable 
diffuser jacks #19, #20 and #21. 
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7.3 Support Software (TSFLOW and SWFLOW) 


These two programs provide dummy wall data for numerical checks of the WAS software. These 
numerical checks are described in the previous sub-section: 


i) Program TSFLOW computes the shape and flow velocities along two selected 
infinite flow streamlines in an incompressible flow field. We constrain these streamlines to pass 
through the two flexible wall anchor points at the entrance to the 0.3-m TCT adaptive wall test 
section. We assume the model’s center of lift is located at the center of the test section turntable. 
The model representation consists simply of a co-incident doublet and vortex. In addition, there 
is an option to include a source (of normalized strength 0.25) placed on the furthest downstream 
point on the boundary of the doublet, to simulate the model’s wake. This option involves the 
deactivation of statement lines 42, 56 and 63 coupled with the activation of comment line 41 (See 
listing in Appendix F.l). The doublet has a fixed radius of 1 inch, while the user decides the 
normalized vortex strength at run time. This software computes streamline vertical displacements 
and normalized velocity increments at the wall jack positions along the top and bottom flexwalls 
(ceiling and floor respectively). A sample of the output from TSFLOW is shown in Appendix 
F.2. 


ii) Program SWFLOW computes Cps along potential flow streamlines constrained 
to be straight or flat in the presence of a model and its images in an incompressible flow field. 
This flow field represents the test section flow where the flexwalls are set to “Aerodynamically 
Straight” contours. The model representation and location are identical to those used in program 
TSFLOW. Again there is an option for a source to be included to simulate a model wake. This 
option involves the de-activation of statement lines 46, 64 and 72 and the activation of comment 
line 45 (See listing in Appendix F.3). This software computes local Cps and the local stream 
function, along each straight flexwall as shown in Appendix F.4. 


Note: Both TSFLOW and SWFLOW do not require any special procedures for task building. 
They are both stand alone programs. Available Modcomp procedures XFTN (Compiling 
task) and P:TB (Task builder) were used to generate executable tasks TSFLOW and 
SWFLOW on the logical file AAA. (See sub-section 6.1 for more more details about task 
generation on the Modcomp.) 
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8. UTILITY SOFTWARE OVERVIEW 


During the development of the WAS software, we have found it necessary to evolve several 
utility routines to support the three datafiles used by the WAS software. These routines provide 
management of the Reference Table datafile of “aerodynamically straight” wall data and the raw 
data and reduced data datafiles. Documentation on the management procedures for these 
datafiles can be found in Appendices D and E, respectively. 

The utility software for the Reference Table datafile is as follows: 

Task SWINIT Initializes the Reference Table datafile with geometrically 

flat wall contours. 

Task SWINI Initializes the Reference Table with linear divergent wall 

contours based on experimental findings with the 0.3-m 
TCT and allows the tunnel centerline to be effectively 
rotated by a desired angle. 

Task SWV1EW Tabulates the contents of the Reference Table directory 

and any selected data records. 

Task SWDUMP Generates a tape back-up of the Reference Table datafile. 

Task SWLOAD Loads the Reference Table datafile from a tape back-up. 

Task SWMOD Allows data records in the Reference Table datafile to be 

overwritten by records selected from the wall library. 

Task SWFLIST Sends a listing of the entire contents of the Reference 

Table to the lineprinter. 

The utility software for the raw data and reduced data datafiles (wall library) is as follows: 

Task DFINIT Initializes the raw and reduced data datafiles. 

Task DFVIEW Tabulates the directories of either the raw or reduced 

data datafiles and lists any selected records. 

Task DFDUMP , Generates a tape back-up of the raw data and reduced data 

datafiles. 

Task DFLOAD Loads the raw data and reduced data datafiles from the tape 

• ! back-up. 

Task DFMOD Allows selected data records from a tape back-up to be 

added to the existing reduced data datafile. 

Task DFKILL Removes the latest record in the reduced data datafile. 

Task DFINPUT Allows the data set in any record on the current raw data 

datafile to be modified with keyboard inputs. 

Task DFSHAPI Allows the data set in any record on the current reduced 

data datafile to be modified or created with keyboard 
inputs. 


39 


8. UTILITY SOFTWARE OVERVIEW (Continued) 


The utility software tasks, cataloged on the previous page, are all executable modules residing on 
a Load Module (LM). For task generation on the Modcomp, each task has its own task build 
procedure. These procedures look for the appropriate compiled object (created using the 
procedure XFTN) on the User Library (UL) and then store the executable module/task on the 
logical file AAA. It is necessary for this logical file AAA to be assigned to a Load Module (LM) 
memory partition before activating any of the procedures. 


The task building procedures have the following names: 


P:SWINI 

P:INISW 

P:SWVIEW 

P:SWDUMP 

P:SWLOAD 

P:SWMOD 

P:SWFLIST 

P:DFINIT 

P:DFVIEW 

P:DFDUMP 

P:DFLOAD 

PrDFMOD 

P:DFKILL 

P:DFPUT 

P:DFSHA 


Generates task SWINIT 
Generates task SWINI 
Generates task SWVIEW 
Generates task SWDUMP 
Generates task SWLOAD 
Generates task SWMOD 
Generates task SWFLIST 
Generates task DFINIT 
Generates task DFVIEW 
Generates task DFDUMP 
Generates task DFLOAD 
Generates task DFMOD 
Generates task DFKILL 
Generates task DFINPUT 
Generates task DFSHAPI 
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TEST SECTION 



FIG. 1 Flexwall Control System Hardware 
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FIG. 2 Data Path Chart for the Flexwall Control System 




FIG. 3 Functional Elements of the Flexwall Control System 



CPU-A System Interface Flexwall Control Software Interface 


DATA TYPE 


TRANSFER 

MEDIUM 


DATA 

FLOW 


TRANSFER METHOD 


f Wall Movement Request 


FLXCOM 


Wall Movement Status 


FLXCOM 


Wall Curvature Status 


FLXCOM 


< 


Destination Jack Positions 
Wall Data Request 


Send Data to CPU-B 
Over the MAXNET Link 


FLXCOM 

Subroutine 

Call 

FLXCOM 


Wall Data 

(Pressures & Jack Positions) 


FLXCOM 


Tunnel Data (Reference 
Pressures & Test Conditions) 


FLXCOM 


Digital Constants 
(Analysis Mode Designator 
and Computational Factors) 


OAPCOM 




CPU-A Terminal Inputs 

(Setup Parameters and 
Operating Mode Designators) 


FLXCOM 


Time Delay 


System 

Calls 


^ Current Time and Date 


System 

Calls 


OUT FSSTAT Bit 7 - Enable Move 
FLX1SW Bit 5 - Initiate Move 
(Both bits set using system subroutine SETB) 

IN M VST AT - Move Status Word 

FSSTAT Bit 7 - Move Complete 
(Pause for bit change using system 
subroutine RLTBZ4) 

i 

IN 1 MVSTAT - Move Status Word 

| JSTAT - Current Jack Position Status Table 

OUT I JPOSN - New (Destination) Jack Positions 

OUT CALL FRQST (Flexwall system subroutine) 


OUT i IACCW - Communications Control Word 
J IASTAT - Communications Status Word 
j FLXISW Bit 7 - Move Status 


IN 


JPOSA and JPOS - Current Jack Positions 
! WPRS - Wall Pressures 


IN XB++++, IB++++, XCHORD - Tunnel Data 


IN 


NAMES - Names Table for DCP 

(Get values using system subroutine DIGICO) 


IN 


IN 

IN 


WASPAR - WAS Setup Parameters 
FLXOPT - Flexwall Task Option Word 
(Bits checked using system subroutine TSTB) 

CALL DELAY (System subroutine) 


CALL T2MCAL, TIMEOUT and TIME 
(System subroutines) 


FIG. 4 Data Interface with the Flexwall Control System and the CPU-A System 
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FIG. 5 Sequence of Events during Wall Adaptation/Streamlining 
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CPU— A 


CPU-B 


; Activate Task FLXWAS 

zzx zz 


Call INITWAL 


_L 


( ^Set Initia^Wall Shapes J 


IACCW = 0 
IASTAT = 0 


_L 


STRSTAT = 
I 


Call WAIT4 

T — ~ 


Call FROST 
~T 


In WAIT Mode 
IASTAI-4Z0400 
Call WAI 14 
' "T" 


Call WALDAT 

muz 

Call STAR 
3 


Call OUT 


^Set New Wall Shapes 


( FLXWAS Deactivated^ , 



Maxnet Link 
Initialized 

CPU— B Operator 
Instruction 

Check Test 
Conditions - Then 
CPU-B Operator 
Resumes FLXWAS 



Acquire Model 
Pressures and 
Resume FLXWAS 


Acquire Model 
Pressures 


FIG. 6 WAS Software Flow Chart for Wall Adaptation/Streamlining 
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FIG. 7 WAS Software Lineprinter Output for One Iteration of a Streamlining Cycle 
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FIG. 7 WAS Software Lineprinter Output for One Iteration of a Streamlining Cycle 

(Continued) 
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FIG. 7 WAS Software Lineprinter Output for One Iteratioft of a Streamlining Cycle 
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APPENDIX A.l - LISTING OF PROGRAM FLXWAS 
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oonnooonnoonooooooooonooonooonoooooonnnnoooooooooooonooo 


PROGRAM FLXWAS 

Q******** ****************************************** ************** 


TITLE: WALL ADJUSTMENT STRATEGY CONTROL TASK 

AUTHOR: STEPHEN W.D. WOLF , NATIONAL RESEARCH COUNCIL 

SYSTEM: CRYO-A 


PURPOSE: SEQUENCE STREAMLINING CYCLE EVENTS FOR THE 

SET OPERATING MODE AND ANALYSIS MODE. ALSO 
EXIT THE TASK FROM THE SYSTEM FOR WALLS 
STREAMLINED AND VARIOUS ERROR CONDITIONS 


REVISION HISTORY: 


VERSION 

DATE 

DESCRIPTION 

H 

• 

H 

06/13/85 

INITIAL VERSION DEVELOPED BY STEPHEN WOLF 
AT THE UNIVERSITY OF SOUTHAMPTON (UK) AND 
ORIGINALLY INSTALLED ON THE CRYO-A SYSTEM 
AT LARC DURING FALL 1982. 

1.2 

08/29/85 

AUTO WALL DATA SELECTION AND STORAGE OF 
RAW AND REDUCED DATA ON DISK INCLUDED FOR 
EACH STREAMLINING CYCLE 

1.3 

02/12/86 

INTEGRATED WITH FLXRUN 

1.4 

02/14/86 

INTEGRATED WITH "FMVSTR" 

1.5 

03/18/86 

*SWDW* SCANIVALVE SWITCHING REMOVED 

1.6 

03/27/86 

*SWDW* INTRODUCE SOFTWARE AND JACK LIMIT 
ERROR EXIT CONDITIONS 

1.7 

03/28/86 

*SWDW* MAKE ALLOWANCES FOR CPU-B ABORT 

1.8 

04/02/86 

*SWDW* DEVELOPMENT VERSION OF FLXWAS 

1.9 

04/11/86 

*SWDW* ALLOW WALL MOVEMENT UP TO 
TEN ITERATIONS 

2.0 

04/17/86 

*SWDW* INITIALISE IACCW 

2.1 

04/23/86 

*SWDW* CHANGE ’WAS ' ANALYSIS HOLD 

2.2 

04/25/86 

*SWDW* OUTPUT JSTAT WHEN HARDWARE ERROR 

2.3 

05/02/86 

*SWDW* REPOSITION CALL TO "OUT” AND 
ADJUST CORE DEVICE OUTPUT 

2.4 

05/15/86 

*SWDW* REMOVE FIXED MODEL CHORD 

2.5 

05/23/86 

*SWDW* ENSURE CHORD READ ON FIRST PASS 
AND MODIFY OUT CALLS 

2.6 

10/23/86 

*SWDW* OUTPUT CORE DEVICE ON FIRST PASS 

ONLY AND PRINT JACK STATUS ON CONSOLE 

2.7 

12/31/86 

*SWDW* CLEAN UP RE-ANALYSIS MODE OPERATIONS 

2.8 

05/06/87 

*SWDW* JACK STATUS ENHANCEMENT 

2.9 

01/26/87 

*EJW* ADIGICO CHANGED TO DIGICO 

AOAP CALL NAMES AS ALTERED FOR USE 
ON CDC DISK DRIVE. 


3.0 6/15/88 CHANGED INCLUDE OF OAPCM FROM USL TO 

PSL. ERIC PLUS MADE MINOR CHANGES TO 
OUTPUT MESSAGES. 
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********************************************************************** 
COMPILER OPTIONS: $23 

LINKER OPTIONS: ATTR OAPCOM,REL, IMAP, NOR, I PR 

COM /OAPCOM ,537 6/OAPCOM 
ATTR FLXCOM , REL , OMAP , NOR , I PR 
COM /FLXCOM, 1024/ FLXCOM 
ATTR WASCOM , REL , OMAP , NOR , IPR 
COM /WASCOM, 1131/ WASCOM 

TASK OVERLAYER OPTIONS: PAGESHARE #03 


EXECUTION INSTRUCTIONS: 

THIS TASK IS ESTABLISHED BY TASK FLXINI,THEN 
ACTIVATED BY TASK FLXCTL 


LOGICAL FILES USED: 

CO - INPUT/OUTPUT TO CONSOLE 
LO - OUTPUT TO THE LINEPRINTER 


SHARED REGIONS: 

AOAPC (Inserted, no restrictions 

FLXCOM (Inserted, no restrictions) 
WASCOM (Inserted, no restrictions) 


User-Defined Subroutine Calls: 


INITWAL 

WALDAT 

STAR 

WAS 

SUME 

OUT 

FRQST(Flexwall control system subroutine) 


System Subroutine Calls: 

DIGICO - Reads digital constants from data common OAPCM. 

DELAY - Inserts a delay of in the task execution. 

WAIT4 - Causes task to go into a pause state. 

SETB - Sets selected bits in control words. 

TSTB - Tests state of selected bits in control words. 

RLTBZ4 - Wait for selected bit to change state. 

TIMEOUT, TM2CAL and TIME - Read current date and time. 

Inputs : 

/OAPCOM/ NAME 

Contents of array NAME become computational factors TWCPLF, BWCPLF, 
TWSF, BWSF and WMOVF, and the analysis mode designator I ANAL (via 
variable ANAL). 
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noooononoooooooooooonooooooooonoooooonnonooonoooooooonnooo 


/FLXCOM/ IBTSTNR, IBRUNNR, IBPTNR, XCHORD, XBMACH, XBPS , XBPT 
XBTT , XBRHOS , XREYNO, XBAOA , FLXISW, FSSTAT , FLXOPT, MVSTAT, WASPAR 
WPRS , JSTAT, JPOSA 

IBTSTNR, IBRUNNR, IBPTNR, XCHORD, XBMACH, XBPS, XBPT, XBTT, XBRHOS, 
XREYNO, XBAOA are all wind tunnel test conditions. 

FLXISW - Flexwall interrupt status word - Bit 7 indicates move 
status. 

FSSTAT - Flexwall system status word - Flexwall hardware status. 
FLXOPT - Flexwall task option word - Set by using task FLXOP. 

MVSTAT — Move status word - Task FMVSTR information on flexwall move. 
WASPAR - Wall alignment strategy setup test parameters - Set by using 
task FLXOP. ’ 

WPRS - Array of wall pressures (PSIA) . 

JSTAT - Wall jack status table. 

JPOSA - Array of averaged current jack positions (Inches) . 

Output : 

/FLXCOM/ STRSTAT, FLXISW, FSSTAT, IACCW, IASTAT , JPOSN, JPOSA, 

WPRS 

STRSTAT - Streamline status word. 

FLXISW - Flexwall interrupt status word - Bit 5 initiates flexwall 
movement . 

FSSTAT - Flexwall system status word - Bit 7 enables flexwall 
movement . 

IACCW - Communications control word. 

IASTAT - communications status word. 

JPOSN - Array of new (destination) jack positions (Inches). 

JPOSA - Array of averaged current jack positions (Inches) . 

WPRS - Array of wall pressures (PSIA). 

/WASCOM/ NOJACK, NOCPT, XJACK, WL, I ANAL, FMACH, PSTATIC, 

PTOTAL, TTOTAL, DENSITY, CREY, ALPHA, CHORD 

Output Messages: 

NASA LANGLEY RESEARCH CENTER 
TRANSONIC CRYOGENIC ADAPTIVE WALL TEST SECTION 
FLXWAS VERSION 3.0 

****** FLEXWALL CONTOURS INITIALIZED ****** 

============= READY TO STREAMLINE ============ 

FLXWAS> *** WAIT FOR TEST CONDITION CHECK *** 

*** ACQUIRING FLEXWALL PRESSURES *** 

FLXWAS > *** SINGLE ITERATION COMPLETE *** 

FLXWAS> ***** WAIT FOR ANALYSIS CHECK ***** 

TYPE IN ANY CHARACTER TO CONTINUE OR [WS] FOR WALLS S/LINED 

********************************** 

* STREAMLINING TERMINATED * 

* HARDWARE ERROR * 

********************************** 

JACK STATUS 
# TOP BOTTOM 
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(Data tabulated below) 

NX Y 

PRESS RETURN TO RECALL 'FLXOP' MENU FOR NEXT PT 

*************************** 

* WALLS STREAMLINED * 

*************************** 

*********************************** 

* STREAMLINING TERMINATED * 

* SOFTWARE ERROR * 

*********************************** 

*********************************** 

* STREAMLINING TERMINATED * 

* JACK LIMIT REACHED * 

*********************************** 

JACK STATUS 
# TOP BOTTOM 

(Data tabulated below) 

FLXWAS> *** RE-ANALYSIS COMPLETED *** 

Processing: 

1) Load fixed tunnel data into shared region WASCOM. 

2) In re-analysis mode, jump to 13. 

3) Initialize MAXNET link. 

4) Select initial wall contours for next data point (Subroutine 
INITWAL) . 

5) Set chord for empty test section streamlining. 

6) Move flexwalls to initial contours. 

7) Wait for CPU-B Operator to initiate the streamlining cycle. 

8) DO - Enter streamlining cycle. 

9) In Wait mode, wait for test condition update. 

10) Read Digital Constants Panel (Subroutine DIGICO) . 

11) Acquire data from the flexwall test section (Subroutine 

FRQST) . , 

12) Re-locate tunnel data in WASCOM. 

13) In re-analysis mode, load tunnel data from disk (Subroutine 
WALDAT) . 

14) Select '* Straight Wall'' reference contours for next 
iteration (Subroutine WALDAT) . 

15) Output raw data to disk if required (Subroutine WALDAT) . 

16) Compute wall boundary layers (Subroutine STAR) . 

17) Compute new wall contours for streamlining (Subroutine WAS) . 

18) Sum residual wall interferences (Subroutine SUME) . 

19) Check streamlining status. 

20) If walls are streamlined, output reduced data information and 
jump to 30. 

21) In Single Iteration mode, set data acquisition bit and the 
wait to continue. 

22) Printout FLXCOM data on first pass only. 

23) Dump core device to the lineprinter on the first pass only. 

24) Output reduced data to lineprinter and disk (Subroutine OUT). 

25) In Pause mode, wait for response from CPU-A operator. 

26) If excessive iterations, abort streamlining, jump to 30. 

27) In re-analysis mode, jump to 31. 

28) Move flexwalls to new contoyrs for next iteration. 
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C 29) ENDDO - Continue the streamlining cycle. 

C 30) Exit conditions. 

C 31) Exit the system. 

C 

C > 

C Exception Handling: 

C 

C Whenever an error condition is encountered (STRSTAT «* -1) an 

C appropriate message is displayed on the operator console and 

C lineprinter, IASTAT is set appropriately, CPU-B is notified, and 

C FLXWAS stops executing. 

C 

C If the CPU -A operator enters a non-ntimeric response when a 

C numeric answer is required, no error message is written. Instead, 
C the task waits until a valid response is supplied. 

C 

C* ********************************************************************** 

c 

c 

c 

c *** DECLARATIONS *** 

C 

INTEGER B1 , B2 , B3 , B4 , B5 , B6 , B7 , B8 

INTEGER CO, PRIOR, ARRAY 

INTEGER* 4 NAME 

L0GICAL*2 TSTB 

REAL* 4 JKPOSN (42 ) , JKPOS(42) 

INCLUDE USL/FLXTYP, NOLIST 

DIMENSION DB (23) ,IDAT(8) , IDATE (8) , ITIME (3 ) , NAME (2, 6) ,ISTART(3) 
DIMENSION ARRAY (256) 

DIMENSION IFIN(3),JNO(19) 

C 

C *** COMMON *** 

C 

INCLUDE PSL/OAPCM, NOLIST 
INCLUDE USL/FLXCOM, NOLIST 
INCLUDE US L/ WAS COM, NOLIST 
C 

c *** EQUIVALENCES *** 

C 

EQUIVALENCE (JPOSN, JKPOSN) , (JPOS,JKPOS) 

EQUIVALENCE (ARRAY ( 1) , IASTAT) 

C 

c **** INITIALIZATION **** 

C 

DATA CO/@CO/ , LO/0LO/ 

DATA B1 , B2 , B3 , B4 , B5 , B6 , B7 , B8/1 ,2, 3, 4, 5, 6, 7, 8/ 

DATA NAME/0TWCPLF, 0 , 0BWCPLF, 0 , 0TWSF, 0 , §BWSF, 0 , @IANAL, 0, §WMOVF, 0/ 
DATA JNO/2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20/ 

DATA VER/ 3.0/, PRIOR/ 255/ 

Q**************** ** ** * ***** * ** ** *** * * ******************* if *************** 

c 

C 0.3-M TCT TEST SECTION GEOMETRY 

C 

C 

C STREAMWISE LOCATION OF WALL COMPUTING POINTS RELATIVE 

C TO THE FLEXWALL ANCHOR POINT (INCHES) 


60 


c 

DATA DB/— 4 .75,0. ,4. 75, 10. 5, 15. 5, 19. 5, 22. 5, 24. 5, 26., 27. 5, 29., 30. 5 
+,32. ,33.5,35.5,37.5,39.5,42.5,46.5,51.5,56.5,61.5,67./ 

C 

C TOTAL NO. OF WALL JACKS 

C 

NOJACK=21 

C 

C NO. OF WALL COMPUTING POINTS 

C 

NOCPT=22 

Qh ******* ******************************************************** ******* 

DO 5 J=1 , 23 
XJACK ( J) =DB ( J) 

5 CONTINUE 

DO 15 J = 1, NOJACK 
K = J + 2 

WL( J) = (XJACK(K+1) -XJACK(K-l) ) /2 
15 CONTINUE 

STRSTAT = 0 

CALL DIGICO (NAME (1,5) , ANAL, IERROR) 

I ANAL = ANAL 
IF (IANAL.EQ. 2) GO TO 50 

c***************** ****************************************************** 
C 

C INITIALIZE MAXNET LINK 

C 

IACCW = 0 

IASTAT = 0 

CALL SETB ( FLXISW , B7 ) 

C * ********************************************************************** 
35 FORMAT (1H1,///23X, " NASA LANGLEY RESEARCH CENTER"/14X, 

+ " TRANSONIC CRYOGENIC ADAPTIVE WALL TEST SECTION") 
c*********************************************************** 

CALL DELAY (0, 100, .FALSE. , .FALSE. , IERR, .TRUE. ) 

WRITE (CO, 35) 

45 FORMAT ( 2 8X, "FLXWAS VERSION ",F4.1/) 

WRITE (CO, 45) VER 
C 

C SELECT INITIAL WALL CONTOURS FOR NEXT DATA POINT 

C 

CALL FRQST ( 4 Z2000 , AQBUSY) 

CHORD = XCHORD 
C 

C SET CHORD FOR EMPTY TEST SECTION STREAMLINING 

C 

50 IF (IANAL.EQ. 1. OR. IANAL.EQ. 2) CHORD = 12. 

C CALL INITWAL( JPOSN, TOPY, BOTY, TWVEL, BWVEL, STRSTAT) 

CALL INITWAL 

IF (STRSTAT. EQ.-l) GO TO 270 
IF (IANAL.EQ. 2) GO TO 80 
C j 

C MOVE FLEXWALLS TO INITIAL CONTOURS 

C 

MVS TAT = -1 

CALL SETB ( FSSTAT , B7 ) 

CALL SETB (FLXISW, B5) 

CALL RLTBZ 4 (FSSTAT, B7) 
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IF (MVSTAT . EQ . 4 . OR . MVSTAT . EQ . 5 ) GO TO 280 
IF (MVSTAT. NE. 1) GO TO 250 
ITERATION = 0 
WRITE (CO, 55) 

55 FORMAT ( //I 2 X, " ****** FLEXWALL CONTOURS INITIALIZED ******* 

+ /13X, " =========== READY TO STREAMLINE ===========") 

C 

C WAIT FOR CPU-B OPERATOR TO INITIATE THE STREAMLINING CYCLE 

C 

CALL WAIT4 

C* *********************************************************************** 

c 

C ENTER STREAMLINING CYCLE 

C 

C* ******************* **************************************************** 

IF ( ITERATION. EQ.O) CALL TIME ( I START) 

IF (ITERATION. EQ.O) GO TO 70 
C 

C IN WAIT MODE, WAIT FOR TEST CONDITION UPDATE 

C 

60 IF ( .NOT.TSTB(FLXOPT, B5) ) GO TO 80 
IASTAT=4Z0400 
CALL SETB (FLXISW, B7 ) 

WRITE (CO, 65) 

65 FORMAT (" FLXWAS> *** WAIT FOR TEST CONDITION CHECK ***") 

CALL WAIT4 
70 CONTINUE 

C 

C READ DIGITAL CONSTANTS PANEL 

C 

80 CALL DIGICO (NAME (1,1) , TWCPLF, IERROR) 

CALL DIGICO (NAME (1,2), BWCPLF, IERROR) 

CALL DIGICO(NAME (1, 3) ,TWSF, IERROR) 

CALL DIGICO (NAME (1, 4) ,BWSF, IERROR) 

CALL DIGICO (NAME ( 1 , 5) , ANAL, IERROR) 

CALL DIGICO ( NAME (1, 6) ,WMOVF, IERROR) 

I ANAL = ANAL 
IF (IANAL.EQ.2) GO TO 90 
C 

C I ANAL CODE TABLE 

C 

C 0 = STREAMLINING ANALYSIS WITH REDUCED PRINT-OUT 

C 1 = STRAIGHT WALL ANALYSIS 

C 2 = RE -ANALYSIS 

C 3 = STREAMLINING ANALYSIS WITH FULL PRINT-OUT 

C 

C **************************************************** 

c * * 

C * ACQUIRE DATA FROM THE FLEXWALL TEST SECTION * 

C * * 

C **************************************************** 

WRITE (CO, 85) 

85 FORMAT ( 6 (/), 16X" *** ACQUIRING FLEXWALL PRESSURES ***",6(/)) 

CALL FRQST(4Z7800,AQBUSY) 

C* *************************************************** 

c 

C RE-LOCATE TUNNEL DATA IN WASCOM 

C 
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FMACH = XBMACH 
PSTATIC = XBPS 
PTOTAL = XBPT 
TTOTAL = XBTT 
DENSITY = XBRHOS 
CREY = XREYNO*1E06 
ALPHA = XBAOA 

IF ( I ANAL .EQ. 1) ALPHA =0.0 
CHORD = XCHORD 

ITERATION = ITERATION + 1 
90 CALL T2MCAL ( IDAT , IERR) 

CALL TIMOUT ( I DAT , I DATE ) 

CALL TIME (ITIME) 

C 

C SELECT "STRAIGHT WALL" REFERENCE CONTOURS FOR CURRENT ITERATION 

C AND OUTPUT RAW DATA TO DISK IF REQUIRED 

C 

C CALL WALDAT (TWY , BWY , DSTAS , BSBAS , TOPWP, BOTWP, STRSTAT) 

CALL WALDAT 
C 

C PRINT HEADER INFORMATION 

C 

IF (STRSTAT. EQ.-l) GO TO 270 
WRITE ( LO ,35) 

WRITE (LO, 45) VER 
125 FORMAT ( 11X , 53 ( ”*") 

+,/12X," TEST NO. =" ,I4,2X, " RUN NO. =",I4,2X," DATA PT. =",I4) 

135 FORMAT (18X,” SELF-STREAMLINING ITERATION NO. - ",I2) 

14 5 FORMAT ( 1 IX ,”*****************************************************•' 

+/24X,4A2,6X,I2, ' . ' ,12, ' HRS') 

155 FORMAT (/21X," MODEL ALPHA (DEG) = ",F5.2/25X," MODEL CHORD = ", 

+F5.2) 

165 FORMAT (/10X, " TEST MACH NO. = ",F7.4,2X," REYNOLDS NO. = ",E11.3) 

175 FORMAT ( 1 IX , " P TOTAL = ",F8.3," PSIA",5X,” T TOTAL = ”,F9.2,” K") 

WRITE (LO, 125) IBTSTNR, IBRUNNR, IBPTNR 
WRITE (LO, 135) ITERATION 

WRITE (LO, 145) IDATE(l) ,IDATE(2) ,IDATE(3) , IDATE (4 ) , ITIME ( 1) , ITIME (2) 
WRITE (LO, 155) ALPHA, CHORD 
WRITE (LO, 165) FMACH, CREY 
WRITE (LO, 175) PTOTAL, TTOTAL 
C 

C COMPUTE WALL BOUNDARY LAYERS 

C 

C CALL STAR ( DST , DSB) 

CALL STAR 
C 

C COMPUTE NEW WALL CONTOURS FOR STREAMLINING 

C 

C CALL WAS ( JPOSN) 

CALL WAS 
C 

C SUM RESIDUAL WALL .INTERFERENCES 

C 

C CALL SUME (STRSTAT) 

CALL SUME 

IF (IANAL.EQ. 2) GO TO 180 
C 
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C CHECK STREAMLINING STATUS 

C 

IF ( STRSTAT . EQ . - 1 ) GO TO 270 
IF (STRSTAT. NE. 1) GO TO 220 
C 

C OUTPUT REDUCED DATA TO LINEPRINTER AND DISK 

C IF WALLS ARE STREAMLINED 

C 

C CALL OUT (STRSTAT) 

180 CALL OUT 

CALL TIME (I FIN) 

WRITE (LO, 195) IBTSTNR, IBRUNNR, IBPTNR, ITERATION 
195 FORMAT (/9X, " TEST ",I3," RUN", 15," POINT" , 13 , 5X, " ITERATION -",12) 
IF (IANAL.NE. 2) WRITE (LO, 205) ISTART(l) , ISTART(2) , ISTART(3) 

205 FORMAT (//l OX, ' S/LINING INITIATED AT ',3(12,' ')) 

WRITE (LO, 215) IFIN ( 1) , IFIN (2 ) , IFIN ( 3 ) 

215 FORMAT (/13X, ' FINISHED AT ',3(12,' ')) 

IF (IANAL.EQ.2) GO TO 290 
GO TO 221 

220 END FILE LO 
C 

C IN SINGLE ITERATION MODE, SET DATA ACQUISITION BIT 

C AND THEN WAIT TO BE CONTINUED 

C 

IF ( . NOT. TSTB (FLXOPT, B4 ) ) GO TO 231 
C 

C PRINTOUT FLXCOM DATA ON FIRST PASS ONLY 

C 

221 IF (IPASS .EQ. 1) GO TO 229 
WRITE (LO, 35) 

WRITE (LO, 45) VER 

WRITE ( LO ,125) I BTSTNR , I BRUNNR , I BPTNR 

WRITE (LO, 145) IDATE ( 1) , IDATE (2 ) , IDATE ( 3 ) , IDATE (4 ) , ITIME ( 1) , ITIME (2 ) 

222 FORMAT (/ , 27X, " TOP WALL DATA"/ 

+19X, " JACK" , 6X, " JPOSA" , 7X, " WPRS"/) 

WRITE (LO, 222) 

WRITE (LO, 223) (I , JPOSA(I , 1) , WPRS (1,1) ,1=1,21) 

223 FORMAT (19X,I4,2F13.5) 

I = 22 

WRITE (LO, 224) I, WPRS (1,1) 

224 FORMAT (19X,I4,13X,F13.5) 

225 FORMAT (/////, 2 5X, " BOTTOM WALL DATA"/ 

+19X, " JACK" , 6X, " JPOSA", 6X," WPRS"/) 

WRITE (LO, 225) 

WRITE (LO, 223) (I , JPOSA (I , 2 ) , WPRS (I , 2 ) , 1=1 , 21) 

I = 22 

WRITE (LO, 224) I, WPRS (I, 2) 

C 

C DUMP CORE DEVICE TO THE PRINTER 

C 

WRITE (LO, 227) 

227 FORMAT ( 1H1//15X, " CORE DEVICE IMAGE"/) 

WRITE (LO, 228) ARRAY 

228 FORMAT ( 16Z5) 

IPASS = 1 

229 IF ( STRSTAT . EQ . 1 ) GO TO 260 
WRITE (CO, 230) 

230 FORMAT (" FLXWAS> *** SINGLE ITERATION COMPLETE ***") 
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END FILE LO 
IACCW = -1 
IASTAT = 4Z4000 
CALL SETB(FLXISW,B7) 

CALL WAIT4 
231 CONTINUE 
C 

C IN PAUSE MODE, WAIT FOR RESPONSE FROM CPU-A OPERATOR 

C 

IF ( . NOT . TSTB ( FLXOPT , B6 ) ) GO TO 240 
WRITE ( CO ,235) 

235 FORMAT ( 5X , " FLXWAS> ***** PAUSE FOR ANALYSIS CHECK *****''/ 

+/" TYPE IN ANY CHARACTER TO CONTINUE OR [WS] FOR WALLS S/LINED") 

READ ( CO ,236) ANS 

236 FORMAT (A2) 

IF (ANS.EQ. 'WS') STRSTAT=1 
IF (ANS.EQ. 'WS' ) GO TO 180 
240 CONTINUE 
C 

C OUTPUT REDUCED DATA TO LINEPRINTER AND DISK 

C 

C CALL OUT (STRSTAT) 

CALL OUT 

IF ( STRSTAT. EQ.-l) GO TO 270 

WRITE (LO, 195) IBTSTNR, IBRUNNR, IBPTNR, ITERATION 
END FILE LO 
C 

C IF EXCESSIVE ITERATIONS, ABORT STREAMLINING 

C 

IF ( ITERATION. GE. 6) GO TO 270 
C 

C MOVE FLEXWALLS TO NEW CONTOURS FOR NEXT ITERATION 

C 

MVS TAT = -1 

CALL SETB ( FSSTAT , B7 ) 

CALL SETB ( FLXI SW , B5 ) 

CALL RLTBZ 4 (FSSTAT, B7) 

IF (MVSTAT. EQ . 4 . OR.MVSTAT. EQ. 5) GO TO 280 
IF (MVSTAT. NE.l) GO TO 250 

C* ***************************************** ***************************** 

C 

C CONTINUE THE STREAMLINING CYCLE 

C 

GO TO 60 

C* ********************************************************************** 

c* ************************************* 
c* * 

C* EXIT CONDITIONS * 

C* * 

c* ********************* * ************** * 

250 WRITE (LO, 254) 

WRITE (CO, 254) 

254 FORMAT (//////20X, 27 C'*")/20X,"* STREAMLINING TERMINATED *"/20X 

+,"* HARDWARE ERROR *"/20X 

+,27 ("*") ) 

WRITE (LO, 255) 

255 FORMAT (/2 OX, " JACK STATUS''/ 

+ , 22X, , 6X, "TOP" , 3X , " BOTTOM" ) 
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WRITE (CO, 256) 

256 FORMAT (/27X, " JACK STATUS"/ 

+ , 22X, , 6X, "TOP" , 3X, "BOTTOM" , 4X, , 6X, "TOP" , 3X, "BOTTOM") 

WRITE (LO, 257) (I , JSTAT (1+1, 1) , JSTAT (1+1 , 2) , 1=1 , 21) 

WRITE (CO, 258) (I, JSTAT(I+1, 1) , JSTAT(I+1, 2) ,JNO(I) , JSTAT (1+2 , 1) , 

+ JSTAT(I+2, 2) ,1=1,19,2) 

I LAST = 21 

WRITE (CO, 257) ILAST, JSTAT (22 , 1) , JSTAT (22 , 2) 

257 FORMAT (21X,I2,2X,Z6,2X,Z6) 

258 FORMAT (21X,I2,2X,Z6,2X,Z6,5X,I2,2X,Z6,2X,Z6) 

C WRITE (CO, 259) 

259 FORMAT (/15X, " PRESS RETURN TO RECALL 'FLXOP' MENU") 

IASTAT = 4Z2000 

GO TO 290 

260 WRITE (LO, 265) 

WRITE (CO, 265) 

265 FORMAT (/2 OX, 27 ("*")/20X, "* WALLS STREAMLINED *"/20X 

+ ,27 ( " * " ) ) 

WRITE (CO, 266) 

266 FORMAT (/10X, "PRESS RETURN TO RECALL 'FLXOP' MENU FOR NEXT PT.") 
IACCW = 0 

IASTAT = 4Z8000 
GO TO 290 

270 WRITE (LO, 275) 

WRITE (CO, 275) 

275 FORMAT (////// 2 OX, 27 ( "*" ) /20X, "* STREAMLINING TERMINATED *"/20X 
+,"* SOFTWARE ERROR *"/20X 

+ , 27 ("*") ) 

WRITE (CO, 259) 

IASTAT = 4 Z 08 00 
GO TO 290 

280 WRITE (LO, 285) 

WRITE (CO, 285) 

285 FORMAT (//////20X, 27 ("*") /20X, "* STREAMLINING TERMINATED *"/20X 

+,"* JACK LIMIT REACHED *"/20X 
+ , 2 7 ( " * " ) ) 

WRITE (LO, 255) 

WRITE (CO, 256) 

WRITE (LO, 257) (I , JSTAT (1+1, 1) , JSTAT(I+1, 2) , 1=1 , 21) 

WRITE (CO, 258) (I , JSTAT (1+1 , 1) , JSTAT (1+1 , 2 ) , JNO (I) , JSTAT (1+2 , 1) 

+ ,JSTAT(I+2, 2) ,1=1,19,2) 

C WRITE (CO, 259) 

IASTAT = 4 Z 1000 

290 IF (IANAL.NE. 2) CALL SETB(FLXISW,B7) 

IF (IANAL.EQ.2) WRITE (CO, 295) 

295 FORMAT (//" FLXWAS> *** RE-ANALYSIS COMPLETED ***") 

END FILE LO 

STOP 

END 
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C SUBROUTINE INITWAL ( JPOSN , TOPY , BOTY , TWVEL , BWVEL , STRSTAT ) 

SUBROUTINE INITWAL 

C* ***************************************************************** 


TITLE: FLEXWALL INITIALIZATION SUBROUTINE 

AUTHOR: STEPHEN W.D. WOLF , NATIONAL RESEARCH COUNCIL 

SYSTEM: CRYO-A 


PURPOSE: SELECT APPROPRIATE INITIAL WALL CONTOURS FOR NEXT 

STREAMLINING CYCLE AND LOAD INTO SHARED REGION 


REVISION HISTORY: 


VERSION 

DATE 

DESCRIPTION 

1.1 

02/11/86 

INITIAL VERSION FRbM WALDAT VERSION 1.3 

1.2 

02/25/86 

SIMULATE THE READING OF SETUP PARAMETERS 
FROM FLXCOM 

1.3 

04/01/86 

DEVELOPMENT VERSION 

1.4 

04/25/86 

PRINT OUT SETUP PARAMETERS 

1.5 

06/25/86 

REVISE ERROR MESSAGES AND MODIFY 
WALL RECORD SELECTION TOLERANCES 

1.6 

09/15/86 

REVISE WALL RECORD SELECTION TECHNIQUE 
DEFAULT TO PREVIOUS WALL CONTOURS 

1.7 

09/17/86 

OPTION TO CALCULATE WALL SHAPE INCLUDED 

1.8 

12/22/86 

CORRECTION TO WALL LIBRARY SCAN 

1.9 

04/03/87 

REDUCE TOLERANCES ON WALL LIBRARY SCAN 
AND ALLOW MANUAL RECORD SELECTION 


k******************************************* ********************* 


COMPILER OPTIONS: $23 

LOGICAL FILES USED: 

CO - INPUT/OUTPUT TO CONSOLE 
LO - OUTPUT TO LINEPRINTER 
12 - REDUCED DATA DATAFILE 

Shared Regions: 

FLXCOM 

WASCOM 

User-Defined Subroutine Calls: 

WALCAL 

STWALL 

ERROR 


Inputs: 

/FLXCOM/ WASPAR 

WASPAR - Table of operator defined set-up parameters 

/WASCOM/ NOJACK, CHORD 
NOJACK - Number of flexwall jacks. 

CHORD - Model chord (Inches) . 
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c 

C Reduced data datafile - KBUFF, LBUFF , TMACH, TREYNO , TALPHA, BUFF 

C 

c 

C Outputs: 

C /FLXCOM/ JPOSN, STRSTAT 

C JPOSN - Array of new (destination) jack positions (Inches) . 

C STRSTAT - Streamline status word. 

C 

C /WASCOM/ XORIG, YORIG, TOPY, BOTY, TWVEL, BWVEL 

C XORIG - Horizontal distance of model 1/4 chord point upstream of 

C model pivot (Inches) . 

C YORIG - Vertical distance of model 1/4 chord point above the model 

C pivot (Inches) . 

C TOPY - Array of top wall jack positions for the initial contour 

C (Inches) . 

C BOTY - Array of bottom wall jack positions for the initial contour 

C (Inches) . 

C TWVEL - Array of top wall external velocities for the initial 

C contour (v/UO) . 

C BWVEL - Array of bottom wall external velocities for the initial 

C contour (v/UO) . 

C 

C Output Messages: 

C 

C INITWAL VER 1.9> SETUP PARAMETERS 

C 

C* ************************************************************************* 

C INITIAL WALL CONTOURS - RECORD ### MACH #.### RN #### E### AOA ###.## 

C* ************************************************************************* 

c 

c* ************************************************************************* 
C INITIAL WALL CONTOURS 'STRAIGHT' FOR NEXT POINT 

C* ************************************************************************* 
INITWAL> STRAIGHT WALL DATA ERROR 

INITWAL> INPUT RECORD NO. FOR INITIAL CONTOURS (O-EXIT) 
Processing: 

1) Display setup parameters 

2) If ' ' aerodynamically straight' 1 wall contours required 
jump to 12. 

3) Select; initial wall contours from reduced data library 
and load from disc. 

4) If no wall contours in library (NREC < 7) jump to 11. 

5) Select data records with wall information (NREC > 6) . 

6) Choose previous wall contours until a better set is found 
where ISAME = 3 . 

7) Define tolerances for selection of wall contours: 

TMDIFF , TRDIFF , TADIFF . 

8) If a very good set of wall contours are found (IGOOD = 

3) then jump to 10. 

9) If no good set of wall contours (IGOOD < 2) can be found 
then jump to 11. 

10) Load good wall contour data (IGOOD > 1) into the private 
shared region WASCOM, then jump to 13. 
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C 11) Compute initial wall contours for current test 

C parameters (Subroutine WALCAL) then jump to 13. 

C 12) Select initial wall contourd from the datafile 

C (Subroutine STWALL) . 

C 13) Load up new jack positions for initial wall contours in 

C private shared region FLXCOM. 

C 14) Return to main program. 

C 

C Exception Handling: 

C 

C Whenever an error condition is encountered (STRSTAT = -1) an 

C appropriate message is displayed on the operator console and the 

C lineprinter, subroutine ERROR is called to provide additional 

C error information, control returns to the main program. 

C 

C* ****************************************** ************************ 

INTEGER CO 
INTEGER*4 IREC 
INCLUDE USL/FWPTYP, LIST 
INCLUDE USL/FLXTYP, NOLIST 

DIMENSION DB ( 128 ) ,TWY(21) ,BWY(21) ,KBUFF(256) ,LBUFF(256) , BUFF (128) 
DIMENSION ITEST(126) , ITRUN(126) ,TMACH(126) ,TREYNO(126) ,TALPHA(126) 
DIMENSION ITDATA ( 126 ), ITER (126) 

*** COMMON *** 

INCLUDE US L/ FLXCOM, NOLIST 
INCLUDE USL/WASCOM , NOLIST 

*** EQUIVALENCES *** 

EQUIVALENCE (KBUFF ( 1 ) , NREC) 

EQUIVALENCE ( KBUFF ( 2 ) , ITEST ( 1 ) ) 

EQUIVALENCE (KBUFF ( 128 ) , ITRUN ( 1) ) 

EQUIVALENCE ( LBUFF ( 1 ) , ITDATA ( 1 ) ) 

EQUIVALENCE (LBUFF(128) , ITER(l) ) 

INCLUDE USL/FWPEQU , LIST 
DEFINE FILE 12 ( 126 , 256 ,U , IREC) 

DATA CO/ 0 CO/, 10/610/ 

DATA VER/1.9/ 

NJ1 = 2* NO JACK 

WRITE (LO , 10) VER, SPMACH , SPREYN , SPAOA, XLORIG , YLORIG 
WRITE ( CO , 10 ) VER , SPMACH , SPREYN , SPAOA , XLORIG , YLORIG 
FORMAT (1H1/" INITWAL VER " ,F3.1,"> SETUP PARAMETERS "/ 5F10 . 4) 
XORIG=XLORIG 
YORIG=YLORIG 

UREYNO = SPREYN * 12E06 / CHORD 
IF (SPAOA. EQ. 99) GO TO 80 

SELECT INITIAL WALL CONTOURS 
FROM REDUCED DATA DATAFILE AND LOAD FROM DISK 

40 CONTINUE 

I ERROR = 0 

IREDUCE = 12 

READ ( IREDUCE ' 1 ) KBUFF 

READ (IREDUCE ’2) LBUFF 

READ ( IREDUCE ' 3 ) TMACH 
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READ ( IREDUCE ' 4 ) TREYNO 
READ ( IREDUCE ' 5 ) TALPHA 

IF MANUAL RECORD SELECTION REQUESTED, THEN JUMP 

IF (SPAOA.EQ.88) GO TO 46 
IF (NREC. LT. 7 ) GO TO 76 

SELECT DATA RECORD WITH WALL INFORMATION 

DO 45 I = 7, NREC 
J = NREC -1+7 
ISAME = 0 

TMD = TMACH(J) -SPMACH 
ATMD = ABS (TMD) 

IF (SPAOA.GT. 0. 0)TAD = SPAOA+O. 2 -TALPHA (J) 

IF ( SPAOA . LE . 0 . 0 ) TAD = -SPAOA+O . 2+TALPHA (J) 

ATAD = ABS (TAD) 

TRD = ABS (TREYNO (J)-UREYNO) 

CHOOSE PREVIOUS WALL CONTOURS UNTIL A BETTER SET IS FOUND 
IF (I.EQ.7) GO TO 42 

ASSESS GOODNESS FACTORS FOR EACH RECORD 

*** IGNORE RECORDS WITH MACH ERROR >0.02 WHEN SPMACH >0.7 *** 

IF (TMD. GT. 0 . 02 .AND. SPMACH. GT. 0 . 7) GO TO 45 
IF (ATMD. LE.TMDIFF) ISAME = 1 
IF (TRD. LE.TRDIFF) ISAME = ISAME + 1 
IF(ATAD.GT.TADIFF) GO TO 45 

SCREEN ONLY FOR ALPHA IN DIRECTION OF 0 DEGREES 

IF (TAD. LT. 0.0) GO TO 45 
ISAME = ISAME + I 
IF ( ISAME . NE . 3 ) GO TO 45 

DEFINE TOLERANCES FOR WALL CONTOURS SELECTION 

42 IRN = J 
IGOOD = 0 
TMDIFF = ATMD 

IF (TMDIFF. LE. 0.008) IGOOD = 1 
IF (TMDIFF. LE. 0.008) TMDIFF = 0.008 
TRDIFF = TRD 

IF (TRDIFF. LE.50E06) IGOOD = IGOOD + 1 
IF (TRDIFF. LE.50E06) TRDIFF = 50E06 
TADIFF = ATAD 

IF (TAD. LT. 0.0) TADIFF =4.0 
IF (TADIFF. LE. 0.8) IGOOD = IGOOD +1 
IF (TADIFF. LE. 0.8) TADIFF =0.8 
WRITE (LO, 43 ) J, IGOOD, TMDIFF, TRDIFF, TADIFF 

43 FORMAT (2I6,F8.3,E10.3,F8.3) 

IF (IGOOD. EQ. 3) QO TO 50 

45 CONTINUE 

IF (IGOOD.LT. 2) GO TO 76 
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GO TO 50 

46 WRITE (CO, 47) 

47 FORMAT (" INITWAL> INPUT RECORD NO. FOR INITIAL CONTOURS (0-EXIT)") 
READ ( CO , * ) IRN 

IF (IRN. EQ. 0) STOP 

50 J = IRN 

WRITE ( CO , 5 5 ) J , TMACH ( J ) , TREYNO ( J) , TALPHA ( J) 

55 FORMAT (/80("*" )/2X 

+," INITIAL WALL CONTOURS - RECORD " ,13,", MACH " , F5 . 3 , 

+" ;RN " , E8 • 3 , " ; AOA " , F6 . 2/80 ( "*" ) ) 

WRITE(LO, 55) J,TMACH(J) , TREYNO (J) , TALPHA (J) 

READ ( IREDUCE ' J ) BUFF 

IF(ABS (TMACH(J) -BUFF(l) ) .GT. 0. 001) IERROR = 1 
DO 65 J = 1, NOJACK 
TOPY(J) = BUFF ( J+3 ) 

BOTY(J) = BUFF ( J+NOJACK+3 ) 

65 CONTINUE 

DO 75 J = 1 , NOCPT 
TWVEL(J) = BUFF ( J+NJ1+3 ) 

BWVEL(J) = BUFF ( J+NJ1+NOCPT+3 ) 

75 CONTINUE 
GO TO 100 

C 

C COMPUTE INITIAL WALL CONTOURS FOR CURRENT TEST CONDITIONS 

C 

76 CALL WALCAL ( S PMACH , S PRE YN , S PAOA ) 

GO TO 100 

C ' 

C IF REQUESTED SELECT INITIAL WALL CONTOURS FROM REFERENCE TABLE 

C 

80 WRITE (CO, 85) 

WRITE (LO, 85) 

85 FORMAT (/80("*")/17X 

+," INITIAL WALL CONTOURS 'STRAIGHT' FOR NEXT POINT"/80 ("*" ) ) 

CALL STWALL ( S PMACH , UREYNO , TOPY , BOTY , DSTAS , DSBAS , IERROR) 

IF ( IERROR. EQ.O) GO TO 90 
WRITE (CO, 86) 

WRITE (LO, 86) 

86 FORMAT (/" INITWAL> STRAIGHT WALL DATA ERROR") 

CALL ERROR (IERROR) 

STRSTAT = -1 
GO TO 110 

90 DO 95 K - 1, NOCPT 

TWVEL(K) = 0.0 
BWVEL(K) =0.0 
95 CONTINUE 

C 

C LOAD UP NEW JACK POSITIONS FOR INITIAL WALL CONTOURS 

C 

100 DO 105 J = 1, NOJACK 

JPOSN ( J, 1) = TOPY ( J) 

JPOSN (J, 2) = BOTY ( J) 

105 CONTINUE 

110 RETURN 

END 
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TITLE: 


AUTHORS : 


SYSTEM: 


PURPOSE: 


"STRAIGHT WALL" DATA ACQUISITION SUBROUTINE 


MINECK 
D. WOLF 


NASA 

NATIONAL RESEARCH COUNCIL 


SUBROUTINE STWALL ( FMACH , REYNO , TWY , BWY , DST , DSB , I ERROR) 

C* *************************************************************** 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


RAYMOND E. 
STEPHEN W. 

CRYO-A 


SELECT THE WALL DATA FOR ' AERODYNAMICALLY 
STRAIGHT' WALL CONTOURS (CONSTANT MACH NO.) 
FOR A GIVEN REYNOLDS NO. AND MACH NO. , FROM 
THE REFERENCE TABLE ON DISK. 


REVISION HISTORY: 


c 

c 

c 

VERSION 

DATA 

DESCRIPTION 

1 H 
j • 

1 H 

06/26/85 

MODIFIED VERSION 0.0 TO SUPPORT THE 

c 



WALL ADJUSTMENT STRATEGY SOFTWARE 

c 

1.2 

04/11/86 

*SWDW* CHANGE LP TO LO 

c 

1.3 

04/17/86 

*SWDW* ALLOW FOR TEST CONDITIONS 

c 



BEYOND THE REFERENCE TABLE BOUNDARIES 

c 

1.4 

05/15/86 

*SWDW* INTERPOLATE WALL CONTOURS 

c 

c 

1.5 

12/22/86 

. *SWDW* REVISE ERROR MESSAGES 

c 

c 

p 

COMPILER OPTIONS: 

$23 

c 

LOGICAL 

FILES USED: 


c 


LO - OUTPUT TO LINEPRINTER 

c 

r « 


10 - REFERENCE TABLE OUTPUT 

V-. 

c 

CALLING 

SEQUENCE: 


c 


CALL STWALL ( FMACH , REYNO , TWY , BWY , DST , DSB , TERROR) 

c 


WHERE - 


c 


FMACH 

- CURRENT MACH NO. 

c 


REYNO 

- CURRENT UNIT REYNOLDS NO. PER FOOT 

c 


TWY 

- TOP WALL JACK POSITIONS 

c 


BWY 

- BOTTOM WALL JACK POSITIONS 

c 


DST 

- TOP WALL D* VALUES 

c 


DSB 

- BOTTOM WALL D* VALUES 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


I ERROR - OUTPUT ERROR CODE 


0 - NO ERROR 

1 - FAILURE TO BRACKET MACH NO. 

2 - FAILURE TO BRACKET REYNOLDS NO. 

3 - COMBINATION OF ABOVE FAILURES 

4 - MISSING DATA RECORDS 


Shared Regions: None 


User-Defined Subroutine Calls: 
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FILESORT - Sort array into ascending order (Listed with STWALL) . 
GETDATA - Get wall data from the reference table (Listed with 
STWALL) . 


Inputs: 

Call statement - FMACH, REYNO 
FMACH - Free stream Mach number. 

REYNO - Unit Reynolds number per foot. 

Reference table datafile - I BUFF, JBUFF 
IBUFF - Reference table directory record buffer 
JBUFF - Wall data record buffer 

Outputs : 

Call statement - TWY, BWY, DST, DSB, IERROR 
TWY - Array of top wall jack positions for ''aero, straight'' 
contour (Inches) . 

BWY - Array of bottom wall jack positions for ''aero, straight'' 
contour (Inches) . 

DST - Array of top wall d* values for ''straight'' contour (Inch). 
DSB - Array of bottom wall d* values for ''aero, straight'' contour 
(Inch) . 

ERROR - Output error code. 


Output Messages: 


STWALL> VERSION 1.5 STRAIGHT WALL DATA 

INTERPOLATION RECORDS » ### , ### , ### , ### 

MACH NO. RANGE ##.## - ##.## 

REYNOLDS NO. PER FT ###E## - ###E## 

TOP WALL JACK POSITIONS 

BOTTOM WALL JACK POSITIONS 

TOP WALL D* CONTOUR 

BOTTOM WALL D* CONTOUR 


Processing: 

1 ) 

2 ) 

3) 

4) 

5) 

6 ) 


Initialization of datafile pointers. 

Sort; Mach numbers in ascending order (Subroutine 
FILESORT) . 

Sort Reynolds number in ascending order (Subroutine 
FILESORT) . 

Determine which Mach numbers bracket desired Mach 
numbers . 

Determine which Reynolds numbers bracket desired Reynolds 
number. 

Get wall data (Subroutine GETDAT) . 
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C 7) Interpolate data between four sets of data. 

C 8) Load interpolated data into working arrays. 

C 9) Return to calling subroutine. 

C 

C 

C Exception Handling: 

C 

C If an error occurs during execution then control will return to 

C the calling subroutine with one of the following output error codes 

C in variable I ERROR: 

C 1 - Failure to bracket Mach no. on datafile 

C 2 - Failure to bracket Reynolds no. on datafile 

C 3 - Combination of above failures on datafile 

C 4 - Missing data records on datafile 

C 

C The no error condition is IERROR = 0 

C 

C 


c* *************************************************************** 

DIMENSION IM (10) ,IR(10) ,TWY(21) ,BWY(21) ,DST(18) ,DSB(18) 
DIMENSION TWY1 (21) , BWY1 (21) , DST1 ( 18) , DSB1 (18) 

DIMENSION TWY 2(21) ,BWY2(21) ,DST2(18) ,DSB2(18) 

DIMENSION TWY 3 (21), BWY3 (21), DST3 ( 18 ) , DSB3 ( 18 ) 

DIMENSION TWY4 (21) ,BWY4(21) ,DST4(18) ,DSB4(18) 

INCLUDE USL/FMASSIGN, NOLIST 
DATA VER/1.5/ 

DO 5 J = 1,10 
IM ( J) = J 
IR(J) = J 
5 CONTINUE 

C 

C INITIALIZATION OF DISK FILE POINTERS 

C 

IREC=1 

READ ( 10 ' IREC) I BUFF 
C 

C SORT MACH NUMBERS IN ASCENDING ORDER 

C 


CALL FILESORT(NTMACH,TMACH, IM) 

C 

C SORT REYNOLDS NUMBERS IN ASCENDING ORDER 

C 


CALL FILESORT(NTREYNO,TREYNO, IR) 

C 

C DETERMINE WHICH MACH NOS. BRACKET DESIRED MACH NO. 

C 

10 IERROR=0 

NTM 1 =NTMACH - 1 
DO 105 1=1 , NTM1 

IF (FMACH.LT. TMACH(l) ) GO TO 15 
IF (FMACH.GE.TMACH(IO) ) GO TO 16 

IF (TMACH (I) . LE . FMACH .AND. TMACH(I+1) .GT.FMACH) GO TO 20 
105 CONTINUE 

IERROR=IERROR+l 
GO TO 25 

15 IMH = 1 

GO TO 25 

16 IMH = 10 
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GO TO 25 
20 IMH = 1+1 

25 IML=IMH— 1 

IF (IML.LE.O) IML = 1 
C 

C DETERMINE WHICH REY.NOS. BRACKET DESIRED REY. NO. 

C 

NTR1=NTREYN0-1 
DO 115 I=1,NTR1 

IF (REYNO . LT . TREYNO ( 1 ) ) GO TO 26 
IF ( REYNO. GE. TREYNO (10) ) GO TO 27 

IF (TREYNO (I ) .LE. REYNO .AND. TREYNO ( 1+1 ) .GT. REYNO) GO TO 30 
115 CONTINUE 

IERROR=IERROR+2 
GO TO 35 

26 IRH=1 

GO TO 35 

27 IRH=10 
GO TO 35 

30 IRH = 1+1 

35 IF (IERROR. GT. 0) GO TO 220 

IRL=IRH-1 

IF (IRL.LE.O) IRL = 1 
C 

C GET WALL DATA 

C 

IMPNT = IM(IML) 

IRPNT = IR(IRL) 

IRN1 = INDEX (IMPNT, IRPNT) 

IF(IRNl.EQ.O) IERROR = 4 

CALL GETDATA ( IRN1 , TWY1 , BWY1 , DST1 , DSB1 ) 

IMPNT = IM(IMH) 

IRPNT = IR(IRL) 

IRN2 = INDEX (IMPNT, IRPNT) 

IF (IRN2 .EQ. 0) IERROR = 4 

CALL GETDATA ( IRN2 , TWY2 , BWY2 , DST2 , DSB2 ) 

IMPNT = IM(IML) 

IRPNT = IR(IRH) f 

IRN3 « INDEX (IMPNT, IRPNT) 

IF ( IRN3 . EQ . 0) IERROR = 4 

CALL GETDATA ( IRN3 , TWY3 , BWY3 , DST3 , DSB3 ) 

IMPNT = IM(IMH) 

IRPNT = IR(IRH) 

IRN4 = INDEX (IMPNT, IRPNT) 

IF (IRN4 . EQ. 0) IERROR = 4 

CALL GETDATA ( IRN4 , TWY4 , BWY4 , DST4 , DSB4 ) 

IF ( IERROR. NE.O) GO TO 220 
C 

C INTERPOLATE DATA BETWEEN FOUR SETS OF DATA 

C 

FACTOR = ( FMACH-TMACH ( IML) ) / (TMACH (IMH) -TMACH(IML) ) 

DO 40 J = 1,21 

TWY1 ( J) = (TWY2 ( J) -TWY1 ( J) )* FACTOR +TWY1(J) 

BWY1 ( J) = (BWY2 ( J) -BWY1 ( J) ) * FACTOR +BWY1 ( J) 

40 CONTINUE 

DO 45 J = 1,18 

DST1(J) = (DST2(J)-DST1(J) )* FACTOR +DS’T1(J) 

DSB1 ( J) = (DSB2 (J) -DSB1 ( J) )* FACTOR +DSB1(J) 
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45 CONTINUE 

DO 60 J = 1,21 

TWY3 ( J) = (TWY4 (J) -TWY3 ( J) ) * FACTOR +TWY3 ( J) 

BWY3 ( J) = (BWY4 (J) -BWY3 (J) ) * FACTOR +BWY3 (J) 

60 CONTINUE 

DO 65 J = 1,18 

DST3 ( J)= (DST4 ( J) -DST3 (J) ) *FACTOR +DST3 (J) 

DSB3 ( J) = (DSB4 ( J) -DSB3 ( J) ) *FACTOR +DSB3 (J) 

65 CONTINUE 

FACTOR = ( REYNO-TREYNO ( IRL) )/ (TREYNO(IRH) -TREYNO(IRL) ) 

DO 80 J = 1,21 

TWYAS ( J) = (TWY3 (J) -TWY1 ( J) ) * FACTOR +TWY1 ( J) 

BWYAS (J)=(BWY3(J)-BWY1(J) )* FACTOR +BWY1(J) 

80 CONTINUE 

DO 85 J = 1,18 

DSTAS ( J) = (DST3 (J) -DST1 (J) ) *FACTOR +DST1(J) 
DSBAS(J)=(DSB3(J)-DSB1(J) )* FACTOR +DSB1 ( J) 

85 CONTINUE 

C 

C LOAD INTERPOLATED DATA INTO WORKING ARRAYS 

C 

DO 125 I = 1,21 

TWY(I) = TWYAS (I) 

BWY(I) = BWYAS(I) 

125 CONTINUE 

DO 135 I = 1,18 

DST(I) = DSTAS (I) 

DSB(I) = DSBAS(I) 

135 CONTINUE 

WRITE (LO, 145) VER 

145 FORMAT (///5X, ' STWALL> VERSION «,F3.1,‘ STRAIGHT WALL DATA 
WRITE (LO, 155) IRN1 , IRN2 , IRN3 , IRN4 
155 FORMAT (/5X," INTERPOLATION RECORDS = " ,16, 3 (" , " ,16) ) 

WRITE (LO, 165) TMACH(IML) ,TMACH(IMH) , TREYNO(IRL) , TREYNO(IRH) 
165 FORMAT (/5X, ' MACH NO. RANGE ',F5.3,' - ',F5.3/ 

+5X, ' REYNOLDS NO. PER FT ',E9.3,' - ' ,E9.3) 

WRITE ( LO ,175) (TWYAS (I) , 1=1 , 11) 

175 FORMAT (///5X" TOP WALL JACK POSITIONS"/ , 11F7 . 3 ) 

WRITE ( LO ,185) (TWYAS (I) , 1=12 , 21) 

185 FORMAT (10F7. 3) 

WRITE (LO, 195) (BWYAS (I) , 1=1, 11) 

195 FORMAT (/5X" BOTTOM WALL JACK POSITIONS"/ , 11F7 . 3 ) 

WRITE (LO, 185) (BWYAS (I) , 1=12 , 21) 

WRITE (LO, 205) (DSTAS (I) , 1=1, 10) 

205 FORMAT (///5X" TOP WALL D* CONTOUR"/ , 10F7 . 3 ) 

WRITE (LO, 185) (DSTAS (I) , 1=11, 18) 

WRITE (LO, 215) (DSBAS (I) , 1=1 , 10) 

215 FORMAT (/5X" BOTTOM WALL D* CONTOUR"/ , 11F7 . 3 ) 

WRITE (LO, 185) (DSBAS(I) ,1=11, 18) 

220 RETURN 
END 
C 

SUBROUTINE FILESORT(N, X, IX) 

C 

C SORT ARRAY X INTO ASCENDING ORDER 

C 

DIMENSION IX(10),X(10) 

NM1=N-1 
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DO 105 1=1, NM1 
IP1=I+1 

DO 115 J=IP1,N 

IF(X(J) . GT.X(I) )GO TO 115 

HOLD=X ( I ) 

IHOLD=IX (I) 

X(I)=X(J) 

IX(I)=IX(J) 

IX ( J) =IH0LD 
X ( J) =H0LD 
115 CONTINUE 
105 CONTINUE 
RETURN 
END 
C 

SUBROUTINE GETDATA ( IREC , TWY , BWY , DTW , DBW) 

GET WALL DATA FROM THE REFERENCE TABLE 

DIMENSION TY (21) ,BY(21) ,DT(18) ,DB(16) ,JBUFF(256) 
DIMENSION TWY (21) ,BWY(21) ,DTW(18) ,DBW(18) 
EQUIVALENCE ( JBUFF ( 7 ) , TY ( 1) ) 

EQUIVALENCE (JBUFF ( 4 9 ) , BY ( 1 ) ) 

EQUIVALENCE (JBUFF (17 9) ,DT(1) ) 

EQUIVALENCE (JBUFF(215) ,DB(1) ) 

READ (10* IREC) JBUFF 
DO 5 J = 1,21 
TWY ( J) =TY ( J) 

BWY ( J) =BY ( J) 

5 CONTINUE 

DO 10 J = 1,18 
DTW ( J) =DT ( J) 

DBW ( J) =DB(J) 

10 CONTINUE 

RETURN 
END 
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APPENDIX A. 4 - LISTING OF SUBROUTINE WALCAL 
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PRECEDING PAGE BLANK NOT FILMED 


PAG fc S, ft . INUWOWHU BUM 



oooooooooooooooottoooooooooooonoooooooooooooo 


SUBROUTINE WALCAL (SPMACH, SPREYN, SPAOA) 

0 ****************** **************************************************** 


TITLE: WALL SHAPE CALCULATION SUBROUTINE 

AUTHORS: RAINER REBSTOCK , NATIONAL RESEARCH COUNCIL 

STEPHEN W.D. WOLF , NATIONAL RESEARCH COUNCIL 

SYSTEM: CRYO-A 


PURPOSE: 

THIS PROGRAM CALCULATES STREAMLINE CONTOURS AND THEIR PRESSURE 
DISTRIBUTIONS IN THE FARFIELD OF A THIN AIRFOIL. LINEAR POTENTIAL 
FLOW IS ASSUMED WITH COMPRESSIBILITY TAKEN INTO ACCOUNT BY THE USE 
OF THE PRANDTL-GLAUERT FACTOR. 

CALCULATIONS ARE BASED ON A SIMPLIFIED SINGULARITY DISTRIBUTION 
OF THE AIRFOIL. THE SOLID BLOCKAGE IS SIMULATED BY A RANKINE 
BODY OF SAME LENGTH AND MAXIMUM THICKNESS (REPRESENTED BY A 
SOURCE AND A SINK OF EQUAL STRENGTH) . THE LIFT IS 
REPRESENTED BY A SINGLE VORTEX THE STRENGTH OF WHICH IS GIVEN 
BY THE ESTIMATED MODEL LIFT COEFFICIENT. 

THE WAKE BLOCKAGE IS ACCOUNTED FOR BY A SOURCE THE STRENGTH OF 
WHICH IS GIVEN BY THE ESTIMATED WAKE DRAG COEFFICIENT. 

THE PROGRAM IS USED HERE TO PREDICT THE WALL DEFLECTION AND 
PRESSURE DISTRIBUTION (UPPER AND LOWER WALL) OF THE 0.3-M TEST 
SECTION. VALUES ARE GIVEN AT THE JACK LOCATIONS. 

THE WALL BOUNDARY LAYER DISPLACEMENT THICKNESS IS TAKEN INTO 
ACCOUNT BY ADDING IN THE ''AERO. STRAIGHT'' WALL SHAPES. THE 
COMPUTED WALL DEFLECTIONS THEREFORE INDICATE THE JACK MOVEMENT 
WITH RESPECT TO THE GEOMETRICALLY STAIGHT WALLS. 

THE AIRFOIL CENTER OF ROTATION IS AT X=30.75 INCHES 

ON THE TUNNEL CENTER LINE, WHERE STATION X=0 IS AT THE UPSTREAM END 
OF THE FLEXIBLE WALL. THE MODEL MID-CHORD POSTION IS DETERMINED AT 
RUN TIME . 


REVISION HISTORY: 

VERSION DATE DESCRIPTION 


1.1 

1.2 

1.3 

1.4 

1.5 


09/16/86 

09/17/86 

12 / 22/86 

04/01/87 

09/29/88 


INITIAL VERSION BASED ON PROGRAM PST2D 
INTRODUCE MOVE LIMITS TO JACK #1 AND #22 
*SWDW* INITIALIZE SINGULARITY STRENGTHS 
*SWDW* EXIT CONDITION INCLUDED 
*SWDW* REFERENCE WALL MOVEMENT DEMANDS 
TO ''AERO. STRAIGHT' • SHAPES 


C* ************ ********************************************************* 

C 

C COMPILER OPTIONS: $23 

C 

C LOGICAL FILES USED: 

C CO - INPUT/OUTPUT TO CONSOLE 

C LO - OUTPUT TO LINEPRINTER 

C 

C CALLING SEQUENCE : 

C CALL WALCAL (SPMACH, SPREYN, SPAOA) 

C WHERE : 

C SPMACH - SETUP PARMETERS MACH NUMBER 
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SPREYN - SETUP PARAMETERS REYNOLD NUMBER 
SPAOA - SETUP PARAMETERS ANGLE OF ATTACK 

Shared Regions: 

WAS COM 


User-Defined Subroutine Calls: 

STWALL 

ERROR 

BLOCK - Computes disturbance velocity due to blockage (Listed 
with WALCAL) . 

WAKE - Computes disturbance velocity due to wake (Listed with 
WALCAL) . 

LIFT - Computes disturbance velocity due to lift (Listed with 
WALCAL) . 

Inputs : 

/WASCOM/ NOCPT, CHORD, XORIG, XJACK 
NOCPT - Number of wall computing points. 

CHORD - Model chord (Inches) . 

XORIG - Horizontal distance of model 1/4 chord upstream of model 
pivot (Inches) . 

XJACK - Array of jack X co-ordinates (Inches) . 

Call statement - SPMACH, SPREYN, SPAOA 
SPMACH - Setup parameters Mach number. 

SPREYN - Setup parameters Reynolds number. 

SPAOA - Setup parameters angle of attack. 

Console keyboard - EPS, CL, CD 
EPS - Model's maximum section thickness (%chord) . 

CL - Estimated model lift coefficient. 

CD - Estimated model drag coefficient. 


Outputs : 

/WASCOM/ TOPY, BOTY, TWVEL, BWVEL 
TOPY - Array of top wall jack positions for computed shape (Inches) . 
BOTY - Array of bdttom wall jack positions for computed shape 
(Inches) . 

TWVEL - Array of top wall external velocities over computed shape 
(v/UO) T 

BWVEL - Array of bottom wall external velocities over computed shape 
(v/UO) . 

Output Messages: , 

WALCAL> ENTER ESTIMATED LIFT- AND DRAG COEFFICIENTS 

WALCAL> ENTER AIRFOIL MAXIMUM THICKNESS (%) O-EXIT 
THICKNESS NOT TO EXCEED 20% 

WALCAL> INPUT ERROR THICKNESS IS ###.##% 

WALCAL> **** CHORD ERROR CHECK CPU-B RTP VALUE **** 

WALCAL> AIRFOIL GEOMETRY: CHORD ##.## INCHES MAXIMUM THICKNESS##% 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

Cl. 5 
Cl. 5 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


WALCAL> FLOW PARAMETERS: FREE STREAM MACH NUMBER ###.## 
CHORD REYNOLDS NUMBER #### E## 

LIFT COEFFICIENT ###.### 

DRAG COEFFICIENT ###.### 

WALCAL> INITIAL WALL CONTOURS 


Processing: 

1) Define functions. 

2) Input section from operator console. 

3) Load test parameters into work variables. 

4) Define jack positions relative to model based reference 
system. 

5) Initialize singularity strengths. 

6) Compute wall displacement due to blockage effect. 

7) Compute Wall displacement due to lift effect. 

8) Compute wall displacement due to wake blockage. 

9) Determine Wall contours due to lift and blockage. 

10) Compute thet disturbance velocity tangential to the 
walls. 

11) Determine the "aero, straight’ ' wall shapes for test 

conditions in the setup parameter table. 

12) Determine total wall deflections. 

13) Output data summary. 

14) Interface data to private shared region WASCOM. 

15) Limit Jack #1 and #22 movement. 

16) Determine jack movements for the variable diffuser. 

17) Return to subroutine INITWAL. 


Exception Handling: 

If an excessive model thickness (> 20%) is accidentally entered 
by the operator then the operator is given an opportunity to 
correctly enter the model thickness. 

If a strange chord value is found, an error message is sent to 
the CPU -A console and the WAS software is halted. 


C* ********************************************************************* 


C 

Cl. 5 

DIMENSION X ( 2 1) ,YB(21) ,YL(21) ,YUW(21) ,YLW(21) ,TWY(21) ,BWY(21) 
+ UUW (21), ULW (21), YWB (21) 

REAL MF 
INTEGER CO 

INCLUDE US L/WASCOM, NOLIST 
DATA CO/@CO/,LO/@LO/ 

C 

C 

C STREAM FUNCTIONS 
C SOLID BLOCKAGE 

PSIB (XI , Y , Q, D) =Q* (ATAN ( (Xl-D) /Y) -ATAN ( (Xl+D) /Y) ) 

C LIFT 

PSIL(X1, Y,G)=0.5*G*ALOG(X1*X1+Y*Y) 

C WAKE BLOCKAGE 
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PSIW (XI , Y , Q) =-Q*ATAN (Xl/Y) 

C* ********************************************************************* 

c 

C 0.3-M TEST SECTION GEOMETRY 

C 

0 ************************************************************** * ** * * * * * 
C 

C TUNNEL HALF HEIGHT 

Cl. 5 

THALFH=6 . 5 
C 

C STREAMWISE LOCATION OF MODEL PIVOT (TURNTABLE CENTER) 

C RELATIVE TO THE FLEXWALL ANCHOR POINT (INCHES) 

Cl. 5 

TURNTC=3 0.75 
C 

C NO. OF STREAMLINING JACKS 

C 

NJACK = NOCPT - 4 
C 

C FORMATS 

25 FORMAT ( • WALCAL> ENTER ESTIMATED LIFT- AND DRAG COEFFICIENT',/) 

40 FORMAT (' WALCAL> ENTER AIRFOIL MAXIMUM THICKNESS (%) 0-EXIT'/ 

+ 8X, ' THICKNESS NOT TO EXCEED 20%',/) 

50 FORMAT (//,' WALCAL> INPUT ERROR' , 5X, 'THICKNESS IS ' , F7 . 2 , '%',/) 

60 FORMAT (/,' WALCAL> **** CHORD ERROR CHECK CPU-B RTP VALUE ***') 

70 FORMAT (' WALCAL> AIRFOIL GEOMETRY: CHORD ' , F5 . 2 , ' INCHES ', 

+ 3 X, 'MAXIMUM THICKNESS' ,F6. 2, '%' ,/) 

80 FORMAT (' WALCAL> FLOW PARAMETERS: FREE STREAM MACH NUMBER' , F6 . 2 , 

+ / , 27X, ' CHORD REYNOLDS NUMBER ',E10.2, 

+ / , 27X, ' LIFT COEFFICIENT' ,F8. 4, 

+ / , 27X, ' DRAG COEFFICIENT' ,F8. 4,///) 

90 FORMAT (///' WALCAL> INITIAL WALL CONTOURS'/) 

100 FORMAT (/3X, ' JACK #',' TOP WALL' , 9X, ' BOTTOM WALL') 

110 FORMAT (A3) 

120 FORMAT (I6,2F8.3,5X,2F8.3) 

C 

C INPUT SECTION 

C READ IN MAXIMUM THICKNESS T/C (%) . 

15 IF ( IPASS . NE . 1 ) WRITE (CO, 40) 

IF ( IPASS . NE . 1) READ ( CO , * ) EPS 
IF ( EPS . EQ .0.0) STOP 
IF (EPS . GT. 20 . ) WI^ITE (CO, 50) EPS 
IF (EPS . GT. 20 . ) GO TO 15 
IPASS = 1 
C 

C LOAD TEST PARAMETERS 

C 

C = CHORD 
MF = SPMACH 
RE = SPREYN*1E06 

C READ ESTIMATED LIFT AND DRAG COEFFICIENT 
WRITE (CO, 25) 

READ (CO,*) CL, CD 
C DEFINE 

C JACK POSITIONS RELATIVE TO MODEL BASED REFERENCE SYSTEM 
Cl. 5 

XMODEL = TURNTC-XORIG+ ( C/4 ) 
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DO 1 1=1 , NJACK 
X ( I) =XJACK (1+2 ) -XMODEL 
YB(I) =0 . 

YL (I) =0 . 

YWB ( I ) =0 . 

YUW ( I ) =0 . 

YLW (I) =0 . 

DEL(I) =0 . 

UUW(I)=0. 

ULW (I) =0 . 

CONTINUE 

INITIALIZE SINGULARITY STRENGTHS 


QST =0.0 
QWST =0.0 
GAMST =0.0 

UPSTREAM END OF UPPER TEST SECTION WALL 
X0=-XMODEL 
.5 

Y0=THALFH 

COMPRESSIBILITY FACTOR BET 
BET=SQRT ( 1-MF*MF) 

PI=6*ARSIN (0.5) 

IF (EPS . EQ. 0 . ) GOTO 1000 

WALL DISPLACEMENT DUE TO BLOCKAGE EFFECT 

EQUIVALENT RANKINE BODY HAS STAGNATION POINTS (+XC,0) AND (-XC,0) 
AND MAXIMUM THICKNESS AT (0,+YT) AND (0,-YT) 

XC=0 . 5*C 

YT=0 . 5*EPS*C/100 . 

SINGULARITY REPRESENTATION IS A SOURCE AT X=-A AND A SINK AT 
X=+A BOTH OF EQUAL STRENGTH QST (NORMALIZED WITH 2*PI*UINF) 
CALCULATION OF 'QST' AND 'A' FROM INPUT VALUES 
VERIFY 

IF ( YT/XC.GE . PI/SQRT (27 . ) ) WRITE(CO,60) 

IF ( YT/XC.GE . PI/SQRT ( 27 . ) ) STOP 
CALCULATE 

ARG=YT*SQRT (27 . ) / (PI*XC) 

DELl=ARCOS ( -ARG) 

A=2 *XC*COS ( DELI/ 3 . ) /SQRT ( 3 . ) 

QST= ( XC*XC-A*A) / ( 2 . *A) 

WALL DEFLECTION DUE TO BLOCKAGE EFFECT IS STORED 
IN ARRAY 'YB' (UPPER WALL). 

Y0I=BET*Y0 

C1=Y0I+PSIB (X0 , YOI , QST, A) 

YN=Y0I 

DO 2 1=1, NJACK 

FIXPOINT ITERATION 
YA=YN 

YN=C1-PSIB(X(I) , YA, QST, A) 

IF(ABS(YN-YA) .GE. 0.001) GOTO 51 

YB (I) =YN-Y0I 
CONTINUE 
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C WALL DISPLACEMENT DUE TO LIFT EFFECT 

C THE VORTEX IS LOCATED AT THE CENTER OF LIFT, ASSUMED TO BE THE 
C 1/4 CHORD POINT. ITS STRENGTH 'GAM' IS RELATED TO THE LIFT 
C COEFFICIENT CL BY THE KUTTA-JOUKOWSKI THEOREM. USE NORMALIZED 
C STRENGTH GAMST=GAM/ (2*PI*UINF) . 

C 

1000 IF (CL. EQ . 0 . ) GOTO 2000 
GAMST=C*CL/ (4 . *PI) 

C WALL DEFLECTION DUE TO LIFT EFFECT IS STORED IN 
C ARRAY 'YL' (UPPER WALL). 

Y0I=BET*Y0 

C1=Y0I+PSIL (XO+C/4 . , YOI , BET*GAMST) 

YN=Y0I 

DO 3 1=1 , NJACK 
C 

C FIXPOINT ITERATION 

52 YA=YN 

YN=C1-PSIL (X ( I ) +C/4 . , YA, BET* GAMS T) 

IF(ABS (YN-YA) .GE. 0.001) GOTO 52 
C 

YL(I)=YN-Y0I 
3 CONTINUE 

C 
C 

C WALL DISPLACEMENT DUE TO WAKE BLOCKAGE 

C THE SOURCE REPRESENTING THE WAKE IS ASSUMED TO BE AT X2=C/2 
C (TRAILING EDGE) .USE NORMALIZED STRENGTH QWST=QW/ (2*PI*UINF) 

C 

2000 IF (CD.EQ. 0) GOTO 3000 
QWST=C*CD/(4.*PI) 

C WALL DEFLECTIONS DUE TO WAKE BLOCKAGE ARE STORED IN ARRAY ' YWB ' 
C (UPPER WALL) 

Y0I=BET*Y0 

C1=Y0I+PSIW (XO-C/2 . , YOI , QWST) 

YN=Y0I 

DO 31 1=1, NJACK 
C 

C FIXPOINT ITERATION 

53 YA=YN 

YN=C1-PSIW (X(I) -C/2 . , YA, QWST) 

IF(ABS (YN-YA) .GE. 0. 001) GOTO 53 
C 

YWB (I) =YN-Y0I 
31 CONTINUE 

C 
C 

C WALL CONTOUR DUE TO LIFT AND BLOCKAGE 
3000 DO 21 1=1, NJACK 

YUW ( I ) =Y 0+ YB ( I ) +YWB ( I ) +YL ( I ) 

YLW (I) =-Y0-YB (I) -YWB ( I ) + YL ( I ) 

21 CONTINUE 

C 

C DISTURBANCE VELOCITY TANGENTIAL TO THE WALLS 
C UPPER WALL 

DO 22 1=1, NJACK 

CALL BLOCK (X( I) ,YUW(I) , A, QST, BET, UB, VB) 

CALL WAKE ( X ( I ) ,YUW(I) ,X2 , QWST, BET, UW,VW) 

CALL LIFT(X (I) ,YUW(I) , C, GAMST, BET, UL, VL) 
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UD=UB+UW+UL 

VD=VB+VW+VL 

UUW ( I ) =SQRT ( ( 1+UD) * ( 1+UD) +VD*VD) -1 . 

22 CONTINUE 
C 

C LOWER WALL 

DO 23 1=1 , NJACK 

CALL BLOCK (X (I) ,YLW(I) , A, QST, BET, UB, VB) 

CALL WAKE ( X ( I ) ,YLW(I) , X2 , QWST, BET,UW, VW) 

CALL LIFT (X (I) ,YLW(I) , C, GAMST, BET, UL, VL) 

UD=UB+UW+UL 

VD=VB+VW+VL 

ULW ( I ) =SQRT ( ( 1+UD) * ( 1+UD) +VD*VD) -1 . 

23 CONTINUE 
C 

Cl. 5 

Cl. 5 DETERMINE THE ''AERO. STRAIGHT' ' WALL SHAPES FOR 
Cl. 5 TEST CONDITIONS IN THE SETUP PARAMETERS TABLE 
Cl. 5 

CALL STWALL (MF , RE , TWY , BWY , DSTAS , DSBAS , I ERROR) 

Cl. 5 

IF(IERROR.NE. 0) CALL ERROR 

Cl. 5 

IF ( IERROR . NE . 0 ) STOP 

Cl. 5 
Cl. 5 
C 

C TOTAL WALL DEFLECTIONS 
DO 4 1=1, NJACK 

Cl. 5 

YUW ( I ) =YB ( I ) +YWB ( I ) +YL ( I ) +TWY ( I ) 

Cl. 5 

YLW ( I ) =-YB ( I ) -YWB ( I ) +YL ( I ) +BWY ( I ) 

4 CONTINUE 

C 

C OUTPUT SECTION 

WRITE (LO, 90) 

WRITE (LO, 70) C, EPS 
WRITE (LO, 80) MF, RE, CL, CD 
WRITE (LO, 100) 

C 

C INTERFACE DATA TO WAS COM FORMAT 

C 

TWVEL(l) = 0.0 
TWVEL(2) = 0.0 
BWVEL(l) =0.0 
BWVEL ( 2 ) =0.0 
DO 7 N = 1, NJACK 
TWVEL(N+2) = UUW (N) 

BWVEL (N+2) = ULW(N) 

TOPY (N) =YUW (N) 

BOTY (N) =YLW (N) 

WRITE (LO, 120) N, TOPY (N) ,TWVEL(N+2) , BOTY ( N ) , BWVEL (N+2) 
7 CONTINUE 

TWVE L ( N J ACK+ 3 ) = TWVEL (NJACK) 

TWVEL(NJACK+4) = TWVEL (NJACK) 

BWVE L ( N J ACK+ 3 ) = BWVEL (NJACK) 

BWVEL (NJACK+4) = BWVEL (NJACK) 
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c? 

C? 0.3-M TCT HARDWARE REQUIREMENT 
C? LIMIT JACK #1 AND #22 MOVEMENT 
C? 

IF (T0PY(1) .GT. 0.075) TOPY ( 1) =0 . 075 
IF (TOPY(l) .LT. -0.075) TOPY ( 1 ) =-0 . 07 5 
IF (BOTY(l) .GT. 0.065) BOTY ( 1 ) =0 . 065 
IF (BOTY(l) .LT.-0. 065) BOTY ( 1) =-0 . 065 

0.3-M TCT HARDWARE REQUIREMENT 
DETERMINE JACK MOVEMENTS FOR THE VARIABLE DIFFUSER 
JACKS #19, #20, AND #21 ON BOTH WALLS 

FRACT = 6 
DO 8 J=19 , 21 

TOPY ( J) = TOPY(18) *(FRACT/8. ) 

BOTY ( J) = BOTY(18) *(FRACT/8. ) 

FRACT = FRACT + (J-22) 

CONTINUE 
RETURN 
END 


SUBROUTINE BLOCK ( X , Y , A , Q , BET , UB , VB ) 

THIS SUBROUTINE CALCULATES THE BLOCKAGE INDUCED DISTURBANCE 
VELOCITIES UB AND VB AT THE POINT (X,Y) RELATIVE TO THE MODEL 
BASED REFERENCE SYSTEM 

Zl= (X+A) * (X+A) +BET*Y*BET*Y 
Z2= (X-A) * (X-A) +BE,T*Y*BET*Y 
UB=Q * ( ( X+A ) / Z 1 - ( X- A ) / Z 2 ) / BET 
VB=BET*Q*Y* (1./Z1-1./Z2) 

RETURN 

END 


SUBROUTINE LIFT (X, Y, C, G, BET, UL, VL) 

THIS SUBROUTINE CALCULATES THE LIFT INDUCED DISTURBANCE VELO 
CITIES UL AND VL AT THE POINT (X,Y) RELATIVE TO THE MODEL BASED 
REFERENCE SYSTEM 

Z= (X+C/4 . ) * (X+C/4 . ) +BET*Y*BET*Y 
UL=G*BET*Y/Z > 

VL=-BET*G* (X+C/4 .) /Z 

RETURN 

END 


SUBROUTINE WAKE ( X , Y , X2 , QWST , BET , UW , VW) 

C THIS SUBROUTINE CALCULATES THE WAKE INDUCED DISTURBANCE VELOCITIES 
C UW AND VW AT THE POINT (X,Y) RELATIVE TO THE MODEL BASED REFERENCE 
C SYSTEM 

Z= (X-X2 ) * (X-X2 ) +BET*Y*BET*Y 
UW=QWST* ( X-X2 ) / ( BET*Z) 

VW=BET*QWST*Y/Z 

RETURN 

END 
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C SUBROUTINE WALDAT ( TWY , BWY , DSTAS , DSBAS , TOPWP , BOTWP , STRSTAT ) 

SUBROUTINE WALDAT 

C****************************************************************** 

c 

c 

C TITLE: WALL DATA ACQUISITION AND SORT SUBROUTINE 

C 


c 

AUTHOR: 

STEPHEN 

W.D. WOLF , NATIONAL RESEARCH COUNCIL 

c 

c 

c 

SYSTEM: 

CRYO-A 


c 

c 

PURPOSE: 

SELECT APPROPRIATE 'AERO. STRAIGHT' WALL 

c 

c 


CONTOUR 

DATA SETS AND LOAD INTO SHARED REGION 

c 

c 

REVISION 

HISTORY : 


L. 

c 

VERSION 

DATE 

DESCRIPTION * 

c 

c 

1.1 

05/23/85 

INITIAL VERSION WITH FIXED 'STRAIGHT WALL' 

c 

c 

1.2 

06/07/85 

DATA AND TSWT DATA REDUCTION. 

'STRAIGHT WALL' bATA SELECTED FROM REFERENCE 

c 

c 

1.3 

09/20/85 

TABLE ON DISK. 

START WALL CONTOURS SELECTED FROM DISK FILES 

c 

1.4 

02/25/86 

INITIALIZATION SECTION REMOVED 

c 

1.5 

03/28/86 

INCLUDED TWYAS AND BWYAS CALCS 

c 

1.6 

04/02/86 

FREEZE WALL POSITION CHECK AND 

c 

c 

1.7 

04/10/86 

ALLOCATE ONE RAW DATA RECORD PER DATA PT. 
UPDATE REYNOLDS NO TO REAL VALUE 

c 

1.8 

04/25/86 

THAW WALL POSITION CHECK + STORE RAW DATA 

c 

c 

1.9 

07/21/86 

DIRECT TO TAPE 

REVISED ERROR MESSAGES PLUS OPTION TO 

c 

c 

2.0 

12/22/86 

DI SPENCE WITH RAW DATA STORAGE 
REMOVE REAL-TIME DATA STORAGE ON TAPE 

c 

2.1 

12/23/86 

RE-ANALYSIS MODE CHANGES 

c 

2.2 

12/31/86 

IMPROVED I/O OPERATIONS 

c 

2.3 

06/15/88 

ALPHA ERROR CORRECTED IN RAW DATA 

c****************************************************************** 

c 

COMPILER 

OPTIONS: 

$23 


C 

C LOGICAL FILES USED: 

C CO - INPUT/OUTPUT TO CONSOLE 

C LO - OUTPUT TO LINE PRINTER 

C 11 - RAW DATA DATAFILE 

C 

C Shared Regions: 

C FLXCOM 

C WAS COM 

C 

C User-Defined Subroutine Calls: 

C STWALL 

C ERROR 

C 

C Inputs: 

C /FLXCOM/ XBMACH , XBPS, XBPT, XBTT, XBRHOS, XREYNO , ALPHA, 

C XCHORD , IBHOUR, IBMIN, IBTSTNR, IBRUNNR, IBPTNR, WPRS, JPOS 
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C XBMACH - Test Mach number. 

C XBPS - Reference static pressure (PSIA) . 

C XBPT - Reference total pressure (PSIA) . 

C XBTT - Reference total temperature (K) . 

C XBRHOS - Static density of working fluid (Slugs/cub. ft) . 

C XREYNO - Test chord Reynolds number (millions) . 

C XBAOA - Test model angle of attack (degrees) . 

C XCHORD - Model chord (Inches) . 

C IBHOUR - Hour data acquired. 

C IBMIN - Minute data acquired. 

C IBTSTNR - Test number. 

C IBRUNNR - Run number. 

C IBPTNR - Data point number. 

C WPRS - Array of wall pressures (PSIA) . 

C JPOS - Array of current wall jack positions (Inches) . 

C 

C /WAS COM/ NO JACK, I ANAL, NOCPT, TOPY, BOTY 

C NOJACK - Number of wall jacks. 

C I ANAL - Analysis mode designator. 

C NOCPT - Number of wall computing points. 

C TOPY - Array of demanded top wall jack Y co-ordinates (Inches) . 

C BOTY - Array of demanded bottom wall jack Y co-ordinates (Inches) . 

C 

C Raw data datafile - KBUFF , LBUFF 

C 

C Outputs : 

C /WASCOM/ DSTAS , DSBAS , TWYAS, BWYAS, TOPWP, BOTWP 

C DSTAS - Array of top wall d* thicknesses on ''aero, straight ' 1 

C contour (Inches) . 

C DSBAS - Array of bottom wall d* thicknesses with ''aero, straight ' 1 

C contour (Inches) . 

C TWYAS - Array of top wall jack Y co-ordinates relative to ''aero. 

C straight'' contour (Inches). 

C BWYAS - Array of bottom wall jack Y co-ordinates relative to ''aero. 

C straight'' contour (Inches). 

C TOPWP - Array of top wall tapping pressures (PSIA) . 

C BOTWP - Array of bottom wall tapping pressures (PSIA) . 

C 

C Raw data datafile - KBUFF, LBUFF, DB 

C KBUFF - Directory record buffer. 

C LBUFF - Directory record buffer . 

C DB - Raw data record buffer. 

C 

C 

C Output Messages: 

C ENTER RECORD NO. FOR DATA RE -ANALYSIS 

C 

C WALDAT> WARNING - USING LAST RECORD AVAILABLE *** 

C 

C WALD AT > RAW DATA ERROR 

C 

C FLXWAS RAW DATA FROM RECORD ### (Followed by table of raw data) 

C 

C WALDAT> STRAIGHT WALL DATA ERROR 

C 

C WALDAT> JACK ## POSITION ERROR 

C 

C 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c**** 


c 


Processing: 

1) Decide if re-analysis mode selected, if yes jump to 5. 

2) Load raw data into array DB. 

3) If I ANAL = 0, jump to 6. 

4) Send raw data in 'DB' to the raw data datafile. 

5) Read loaded data from the raw data datafile as a check or 
re-analysis. 

6) Select ' ' aerodynamically straight' ' wall data record and 

acquire wall data. , 

7) Determine jack positions relative to ''aero, straight 1 

contours. 

8) Load wall pressures into work arrays. 

9) Check wall data for auto streamlining. 

10) Return to main program. 


Exception Handling: 


Whenever an error condition is encountered (STRSTAT = -1) 
appropriate message is displayed on the operator console and 
lineprinter, subroutine ERROR is called to provide additional 
information, control returns to program FLXWAS. 


an 

error 


A jack position error due to LVDT drift is displayed as a warning 
to the operator, subroutine ERROR is called to provide additional 
information. If the error is severe, then a hardware error will 
result when the walls are moved. 


A warning is given if the last available record on the raw data 
datafile is being used. This datafile needs to be copied to tape and 
then initialized. 


>*♦*********************************************************** 
INTEGER CO 
INTEGER* 4 IREC 

INCLUDE USL/FLXTYP , NOLIST , „ „ _ . 

DIMENSION DB ( 128 ) ,TWY(21) ,BWY(21) ,KBUFF(256) ,LBUFF(256) ,BUFF(128) 
DIMENSION ITEST(126) ,ITRUN(126) ,TMACH(126) ,TREYNO(126) ,TALOHA(126) 
DIMENSION ITDATA(126) ,ITER(126) 


*** COMMON *** 

INCLUDE USL/FLXCOM, NOLIST 
INCLUDE USL/WASCOM , NOLIST 

*** EQUIVALENCES *** 

EQUIVALENCE (KBUFF ( 1) , NREC) 
EQUIVALENCE ( KBUFF ( 2 ) , ITEST ( 1 ) ) 
EQUIVALENCE (KBUFF (128) ,ITRUN(1) ) 
EQUIVALENCE ( LBUFF ( 1 ) , ITDATA ( 1 ) ) 
EQUIVALENCE (LBUFF(128) , ITER(l) ) 
DEFINE FILE 11 ( 126 , 256 , U, IREC) 
DATA CO/0CO/ , LO/0LO/ 

IFLIM =126 
NJ1 = 2*N0JACK 
NJ2 = 3*NOJACK 


c 
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C DECIDE IF RE-ANALYSIS MODE SELECTED 

C 

IF (IANAL.NE.2) GO TO 10 
WRITE (CO, 5) 

5 FORMAT (/•' ENTER RECORD NO. FOR DATA RE -ANALYSIS" ) 

READ (CO,*) NREC 
GO TO 20 
C 




C 

C 

C 

10 


15 

C 


LOAD RAW DATA INTO DATA BUFFER 

DB ( 1) = XBMACH 
DB ( 2 ) = XBPS 
DB (3 ) = XBPT 
DB (4 ) = XBTT 
DB ( 5 ) = XBRHOS 
DB (6) = XREYNO*1E06 
DB (7) - XBAOA 
DB(8) = XCHORD 
DB (9) = IBHOUR 
DB (10) = IBMIN 
DB (11) = IBTSTNR 
DB ( 12 ) = IBRUNNR 
DB ( 13 ) = IBPTNR 
DO 15 J = 1, NOJACK 
DB ( 13+J) = WPRS ( J , 1 ) 

DB ( 13+NOJACK+J) = WPRS (J, 2) 

DB ( 13+NJ1+J) = JPOS(J,l) 

DB ( 1 3 +N J 2 + J ) = JPOS ( J , 2 ) 

CONTINUE 

IF(IANAL.EQ. 0. ) GO TO 24 


C* ******************************************************************* 
C 

C SEND RAW DATA IN DATA BUFFER TO DISK 

C 

I ERROR = 0 
READ ( 1 1 ' 1 ) KBUFF 
READ ( 11 ' 2 ) LBUFF 

IF (ITERATION. EQ. 1) NREC = NREC + 1 
IF (NREC. EQ. IFLIM) WRITE (CO, 16) 

IF (NREC . EQ . IFLIM) WRITE(LO,16) 

16 FORMAT (" WALDAT> WARNING - USING LAST RECORD AVAILABLE ***") 

IF (NREC. GT. IFLIM.OR.NREC.LT. 2) I ERROR = 999 

IF (IERROR. EQ. 0) GO TO 18 
WRITE(CO, 17) 

WRITE (LO, 17) 

17 FORMAT (/" WALDAT> RAW DATA ERROR") 

CALL ERROR (IERROR) 

STRSTAT = -1 

18 ITEST (NREC) = IBTSTNR 
ITRUN (NREC) = IBRUNNR 
ITDATA (NREC) = IBPTNR 
ITER (NREC) = ITERATION 
WRITE (11 *1) KBUFF 
WRITE (11 '2) LBUFF 

IREC = NREC 
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WRITE (11 'IREC) DB 

C ******************************************************************** 

C 

C READ LOADED RAW DATA FROM DISK AS CHECK OR REANALYSIS 

C 

READ ( 11 ' 1) KBUFF 
READ (11* 2) LBUFF 
20 IREC = NREC 

READ (11' IREC) DB 

24 IF(ABS(NREC) .GT.IFLIM) NREC = 0 
WRITE (LO, 25) NREC 

25 FORMAT (/I OX, " FLXWAS RAW DATA FROM RECORD '',13//) 

WRITE(LO,35) (DB(J) ,J=1,13) 

3 5 FORMAT ( F7 . 4 , 2 F7 . 3 , F7 . 2 , F8 . 5 , E10 . 2 , 2 F5 . 2 , F5 . 0 , F4 . 0 , F4 . 0 , F4 . 0 , F4 . 0 ) 

WRITE (LO, 45) (DB(J+13) ,J=1,21) 

WRITE ( LO ,45) (DB ( J+13+NOJACK) ,J=1,21) 

WRITE (LO, 55) (DB(J+13+NJ1) ,J=1,21) 

WRITE (LO, 55) (DB(J+13+NJ2) ,J=1,21) 

45 FORMAT (11F7. 2) 

55 FORMAT (11F7. 3) 

IF (IANAL.NE.2) GO TO 60 1 

C 

C LOAD TUNNEL DATA FROM DISK 

C 

FMACH = DB( 1) 

PSTATIC = DB (2 ) 

PTOTAL = DB ( 3 ) 

TTOTAL = DB(4) 

DENSITY = DB(5) 

CREY = DB (6) 

XREYNO = CREY * IE-06 
ALPHA = DB(7) 

CHORD * DB(8) 

IBHOUR = DB(9) 

IBMIN = DB(10) 

IBTSTNR = DB(ll) 

IBRUNNR « DB ( 12 ) 

IBPTNR = DB (13) 

DO 56 J = 1, NOJACK 
WPRS ( J, 1) = DB(13+J) 

WPRS ( J , 2 ) = DB ( 13+NOJACK+J) 

JPOS(J,l) = DB(13+NJ1+J) 

JPOS (J, 2) = DB ( 13+NJ2+J) 

56 CONTINUE 
ITERATION = 1 

C* ******************************************************************* 

C 

C SELECT 'STRAIGHT WALL' DATA RECORD AND ACQUIRE WALL DATA 

C 

60 UREYNO = XREYNO* 1 2 EO 6/ CHORD 

CALL STWALL ( FMACH , UREYNO , TWY , BWY , DSTAS , DS BAS , IERROR ) 

IF (IERROR. EQ . 0) GO TO 70 
WRITE (CO, 65) 

WRITE ( LO , 65 ) 

65 FORMAT (/" WALDAT> STRAIGHT WALL DATA ERROR”) 

CALL ERROR (IERROR) 

STRSTAT=-1 
GO TO 130 
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70 CONTINUE 

C 

C DETERMINE WALL POSITIONS FROM "STRAIGHT" (INCHES) 

C 

DO 75 J = 1, NOJACK 
TWYAS(J) = TOPY(J) - TWY(J) 

BWYAS(J) = BOTY(J) - BWY(J) 

75 CONTINUE 

C 

C LOAD WALL PRESSURES INTO WORK ARRAYS 

C 

NMPT1 = NOCPT - 1 
NMPT2 = NOCPT - 2 
DO 85 N = 1,2 
TOPWP(N) = PSTATIC 

BOTWP(N) = PSTATIC 

85 CONTINUE 

DO 95 N = 3 , NMPT2 
NN = N-2 

TOPWP(N) = WPRS (NN , 1 ) 

BOTWP(N) = WPRS ( NN , 2 ) 

95 CONTINUE 

DO 105 N = NMPT1, NOCPT 
TOPWP(N) = TOPWP (NMPT2 ) 

BOTWP(N) = BOTWP ( NMPT2 ) 

105 CONTINUE 
C 

C CHECK WALL DATA FOR AUTO STREAMLINING 

C 

DO 125 J = 1, NOJACK 

IF (ABS ( JPOS (J, 1) -TOPY ( J) ) . GT. 0.010) GO TO 110 
IF (ABS ( JPOS ( J, 2 ) -BOTY ( J) ) . GT. 0.010) GO TO 115 
GO TO 125 
110 I ERROR = 5 

GO TO 120 
115 I ERROR = 6 

120 WRITE(CO, 121) J 
WRITE(LO, 121) J 

121 FORMAT (//," WALDAT> JACK" ,13," POSITION ERROR") 
CALL ERROR (I ERROR) 

C? STRSTAT = -1 
125 CONTINUE 
130 RETURN 
END 
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C SUBROUTINE STAR ( DST , DSB) 

SUBROUTINE STAR 

C* *************************************************************** 

c 

c 

C TITLE: FLEXWALL BOUNDARY LAYER ASSESSMENT SUBROUTINE 

C 

C AUTHOR: STEPHEN W.D. WOLF , NATIONAL RESEARCH COUNCIL 

C 

C SYSTEM: CRYO-A 

C 

C PURPOSE: CALCULATE THE BOUNDARY LAY&R DISPLACEMENT 

C THICKNESS AND THE MACH NO. DISTRIBUTION 

C ALONG EACH FLEXWALL 

C 
C 

C REVISION HISTORY: 

C 

C VERSION DATE DESCRIPTION 

C 1.1 07/29/85 INITIAL VERSION USING THE VON KARMAN 

C MOMENTUM INTEGRAL EQUATION. 

C 1.2 12/22/86 CHANGE LP TO LO 

C 1.3 12/23/86 REVISED WARNING MESSAGES 

C************** ******************************************** ********** 

c 

C COMPILER OPTIONS: $23 

C 

C LOGICAL FILES USED: 

C CO - OUTPUT TO CONSOLE 

C LO - OUTPUT TO LINEPRINTER 

C 

C Shared Regions : 

C WASCOM 

C 

C User-Defined Subroutine Calls: None 

C 

C Inputs : 

C /WASCOM/ NOCPT , XJACK, TOPWP, BOTWP, PTOTAL, DENSITY, CREY, 

C CHORD, DSTAS , DSBAS 

C 

C NOCPT - Number of wall computing points. 

C XJACK - Array of jack X co-ordinates (Inches) . 

C TOPWP - Array of top wall tapping pressures (PSIA) . 

C BOTWP - Array of bottom wall tapping pressures (PSIA) . 

C PTOTAL - Reference total pressure (PSIA) . 

C DENSITY - Working fluid density (Slugs/ ft**3) . 

C CREY - Chord Reynolds number. 

C CHORD - Model chord (Inches) . 

C DSTAS - Array of top wall d* values for ''aero, straight'' contour 

C (Inches) . 

C DSBAS - Array of bottom wall d* values for ''aero, straight'' contour 
C (Inches) . 

C 

C Outputs : 

C /WASCOM/ TWDS , BWDS, TWMACH, BWMACH 

C TWDS - Array of top wall d* values for current contour (Inches) . 

C BWDS - Array of bottom wall d* values for current contour (Inches) . 
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TWMACH - Array of Mach numbers along current top wall contour. 
BWMACH - Array of Mach numbers along current bottom wall contour. 


Output Messages: 

BOUNDARY LAYER CALCULATIONS 
TOP WALL 

TAP NO. DU/DX MACH NO. D* DD* 

(Table of data) 

BOTTOM WALL 

(Table of data) 

FLXWAS> *** WARNING - SONIC VEL. AT TOP WALL JACK ## *** 
FLXWAS> *** WARNING - SONIC VEL. AT BOTTOM WALL JACK ## *** 


Processing: 

1) Calculate d* at each wall jack location using sets of 
data for three jack locations. 

2) Load top wall pressures. 

3) Load bottom wall pressures. 

4) Local Mach no. calculations. 

5) Calculate local wall flow velocities. 

6) Assume a turbulent b/1 growth to the second measuring 
point on each wall. 

7) Calculate the velocity gradient at measuring point 1. 

8) Guess the size of d*. 

9) Calculate components of the M.I. Eqn. 

10) Calculate d* from dd*/dx for last measuring point on 
each wall. 

11) Calculate d* from dd*/dx for second measuring point on 
each wall. 

12) Calculate d* from dd*/dx for all other measuring points. 

13) Check d* guess and iterate to a solution. 

14) Store correct values of d* (Inches) . 

15) Calculate dd*. 

16) Check for sonic flow on the flexwalls. 

17) Return to main program. 


Exception Handling: 

A warning ie given when sonic velocity is encountered at any of 
the wall jacks. The operator should then proceed with caution in the 
knowledge that wall streamlining is no longer ' ' routine'' and may not 
be possible at all. 


C* ******************** *********************************************** 

INTEGER CO 

INCLUDE USL/WASCOM, NOLIST 
DATA CO/@CO/ , LO/@LO/ 

5 FORMAT (//13X," BOUNDARY LAYER CALCULATIONS''//” TOP WALL"/) 

WRITE (LO, 5) 

15 FORMAT (2X, " TAP NO.",2X," DU/DX", 5X f " MACH NO.",6X," D*", 

+ 9X," DD*") 

WRITE (LO, 15) 
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NJ2 = NOCPT * 2 


C 

C CALCULATE D* AT EACH WALL MEASURING POINT USING SETS OF THREE 

C MEASURING POINTS (LABELLED 0,1,2) 

C 

DO 105 N = 2 , NJ2 
NN * N 

IF (N.GT. NOCPT) NN = N-NOCPT 
IF(NN.GT. (NOCPT-2) ) GO TO 105 
25 FORMAT {//" BOTTOM WALL”/) 

IF(N.EQ. (NOCPT+1) ) WRITE (LO,25) 

IF(N.EQ. (NOCPT+1) ) WRITE (LO,15) 

IF (NN. EQ. 1) GO TO 105 

XI = XJACK(NN) - XJACK(NN-l) 

X2 = XJACK(NN+1) - XJACK(NN-l) 

IF (N.GT. NOCPT) GO TO 10 
C * 

C LOAD TOP WALL PRESSURES 

C 

WP1 = TOPWP(NN) 

WP2 = TOPWP (NN+1) 

WP3 = TOPWP (NN-1) 

GO TO 20 
C 

C LOAD BOTTOM WALL PRESSURES 

C 

10 WP1 = BOTWP(NN) 

WP2 = BOTWP ( NN+ 1 ) 

WP3 = BOTWP (NN-1) 

C 

C LOCAL MACH NO. CALCULATIONS 

C 

20 PI = 0 . 28571*ALOG (PTOTAL/WP1) 

P2 * 5.0* (EXP (PI) -1) 

WMACH = SQRT ( P2 ) 

C 

C CALCULATE LOCAL WALL FLOW VELOCITES 

C 

Q1 = 0.7 *WP1*WMACH*WMACH 
PI = 0.285 7 1* ALOG ( PTOTAL/WP2 ) 

P2 = 5.0* (EXP (PI) -1) 

WM1 = SQRT ( P2 ) 

Q2 = 0 . 7*WP2*WM1*WM1 

PI = 0. 28571*ALOG(PTOTAL/WP3) 

P2 = 5.0* (EXP (PI) -1) 

WM2 = SQRT ( P2 ) 

Q3 = 0 . 7 *WP3 *WM2 *WM2 

U1 = SQRT (291. 508*Q1/DENSITY) 

U2 * SQRT(291.508*Q2/DENSITY) 

U3 * SQRT (291. 508*Q3/DENSITY) 

IF (NN.EQ.2) GO TO 30 
GO TO 40 
C 

C ASSUME A TURBULENT B/L GROWTH TO THE SECOND MEASURING 

C POINT ON EACH WALL 

C 

30 R1 = CREY/( CHORD/ 12) 

VISCOSITY = U1*DENSITY*32 . 18E6/R1 
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REYNO = (R1*X1)/12 

PI = 0.142857*ALOG (REYNO) 

P2 = EXP (PI) 

P3 = 0.00127 * XI 
FPDELTA = P3/P2 
GO TO 105 
C 

C CALCULATE THE VELOCITY GRADIENT AT MEASURING POINT 1 

C 

40 Y1 = U1 - U3 
Y2 = U2 - U3 

A1 = (Y2-( (X2*Y1)/X1) )/( (X2*X2)-(X1*X2) ) 

B2 = (Y1-(A1*(X1*X1) ) )/Xl 
VELGRAD = ( 2 *A1*X1 ) + B2 
C 

C GUESS THE SIZE OF D* 

C 

IDINC = 0 
ITRIP = 1 

50 IDINC = IDINC+1 

IF ( ITRIP. EQ. 1) DGUESS = (25 + IDINC*100)/1E6 
IF ( ITRIP. EQ . 2 ) DGUESS = DGUESS - 25E-6 
C 

C CALCULATE COMPONENTS OF THE M.I. EQN 

C 

PI = (U1*DGUESS*DENSITY*32 . 18E6) /VISCOSITY 
P2 = 0.25 * ALOG (PI) 

P3 = EXP (P2 ) 

P4 = 0 . 0128/P3 

IF (NN.EQ.NOCPT) GO TO 60 

RCDEL = P4- ( 3 . 4*DGUESS*VELGRAD*12/U1) 

IF (NN.EQ.3) GO TO 70 
GO TO 80 
C 

C CALCULATE D* FROM DD*/DX FOR LAST MEASURING POINT ON EACH WALL 

C 

60 RCDEL = P4- ( 3 . 4*DGUESS*0LDGRAD*12/U1) 

GO TO 80 

C 

C CALCULATE D* FROM DD*/DX FOR SECOND MEASURING POINT ON EACH WALL 

C 

70 DELTA = (RCDEL*X1/12 ) + FPDELTA 

GO TO 90 

C 

C CALCULATE D* FROM DD*/DX FOR ALL OTHER MEASURING POINTS 

C 

80 DELTA = OLDELTA+ (0.5* (RCDEL+OLDRCD) *X1/12 ) 

90 IF ( ITRIP. EQ. 2. AND. DELTA. GT. DGUESS) GO TO 100 
C 

C CHECK D* GUESS AND ITERATE TO A SOLUTION 

C 

IF (DELTA. LT. DGUESS) ITRIP = 2 
GO TO 50 

100 DGUESS » DGUESS + 25E-6 
C 

C STORE CORRECT VALUES OF D* (INCHES) 

C 

NNJ = NN - 2 
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IF (N. LE . NOCPT) TWDS(NNJ) = 16.8 * DGUESS 
IF(N.GT.NOCPT) BWDS(NNJ) = 16.8 * DGUESS 
C 

C CALCULATE DD* 

C 

IF (N.LE. NOCPT) DDSTAR = DSTAS (NNJ) - TWDS(NNJ) 

IF (N.GT. NOCPT) DDSTAR = BWDS(NNJ) - DSBAS(NNJ) 

35 FORMAT ( 5X, I2,F12.4,F11.3,1X,2F12.4) 

45 FORMAT ( 5X, 12 , F12 . 4 , " ***",F6.3," ***" , F9 . 4 , F12 . 4 ) 

IF (N.GT. NOCPT) GO TO 120 

IF (WMACH. LE. . 99) WRITE(LO,35) NNJ , VELGRAD , WMACH , TWDS ( NNJ ) , DDSTAR 
IF (WMACH . GT . . 99 ) WRITE(LO,45) NNJ , VELGRAD, WMACH, TWDS (NNJ) , DDSTAR 
IF (WMACH. GT. .99) WRITE (CO, 55) NNJ 
55 FORMAT (" FLXWAS> WARNING - *** SONIC VEL. AT TOP WALL JACK" 

+ ,14," ***") 

TWMACH ( NNJ ) =WMACH ' 

GO TO 110 

120 IF (WMACH. LE. .99) WRITE(LO,35) NNJ , VELGRAD , WMACH , BWDS ( NNJ ), DDSTAR 
IF (WMACH. GT. .99) WRITE(LO,45) NNJ , VELGRAD, WMACH, BWDS (NNJ) , DDSTAR 
IF (WMACH. GT. .99) WRITE (CO, 65) NNJ 

65 FORMAT (2X, " FLXWAS> WARNING - *** SONIC VEL. AT BOTTOM WALL JACK" 
+ ,14," ***") 

BWMACH ( NNJ ) =WMACH 
110 OLDELTA = DELTA 
OLDRCD = RCDEL 

I F ( NN . EQ . ( NOCPT- 1 ) ) 0LDGRAD= VELGRAD 
105 CONTINUE 
RETURN 
END 
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C SUBROUTINE WAS ( JPOSN) 

SUBROUTINE WAS 

C***************************************************************** 

C 

c 

C TITLE: WALL ADJUSTMENT STRATEGY SUBROUTINE 

C 


c 

AUTHORS : 

MICHAEL 

JUDD , UNIVERSITY OF SOUTHAMPTON 

c 

c 


STEPHEN 

W.D. WOLF , NATIONAL RESEARCH COUNCIL 

c 

c 

SYSTEM: 

CRYO-A 


c 

PURPOSE: 

PREDICTS 

A NEW SET OF FLEXWALL CONTOURS AND 

c 

c 


ASSOCIATED EXTERNAL (IMAGINARY) VELOCITIES 

c 

c 

n 

REVISION 

HISTORY: 


\_ 

c 

c 

VERSION 

DATE 

DESCRIPTION 

c 

c 

c 

c 

1.1 

08/13/85 

STRATEGY A ( VERSION USED IN TSWT 
UNIVERSITY OF SOUTHAMPTON , UK ) AND 
STRATEGY B ( EMPTY TEST SECTION 
STREAMLINING ) COMBINED. 

c 

c 

1.2 

09/26/85 

BETA CORRECTION TO JACK MOVEMENTS 
REMOVED 

c 

1.3 

02/25/86 

CHANGED LP TO LO 

c 

1.4 

04/30/86 

REVISED COMMENTS 

c 

c 

1.5 

12/22/86 

ALLOW JACKS #1 AND #22 TO FLOAT 

UNDER CONTROL + CHANGES TO DIFFUSER JACKS 


C* ******************************************************************** 

c 

C COMPILER OPTIONS: $23 

C 

C LOGICAL FILES USED: 

C CO - OUTPUT TO CONSOLE 

C LO - OUTPUT TO LINEPRINTER 

C 

C Shared Regions : 

C WAS COM 

C 

C User-Defined Subroutine Calls: None 

C 

C Inputs : 

C /WASCOM/ NOCPT , FMACH, TWCPLF, BWCPLF, TWSF, BWSF, PSTATIC, 

C TOPWP, BOTWP, TWVEL, BWVEL, XJACK, TWMACH, BWMACH, WMOVF, I ANAL 

C 

C NOCPT - Number of wall computing points. 

C FMACH - Free stream Mach number. 

C TWCPLF - Top wall coupling factor. 

C BWCPLF - Bottom wall coupling factor. 

C TWSF - Top wall scaling factor. 

C BWSF - Bottom wall scaling factor. 

C PSTATIC - Reference static pressure (PSIA) . 

C TOPWP - Array of top wall tapping pressures (PSIA) . 

C BOTWP - Array of bottom wall tapping pressures (PSIA) . 

C TWVEL - Array of top wall external velocities for current contour 

C (v/UO) . 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BWVEL - Array of bottom wall external velocities for current contour 
(v/UO) . 

XJACK - Array of jack X co-ordinates (Inches) . 

TWMACH - Array of top wall Mach numbers for current contour. 

BWMACH - Array of bottom wall Mach numbers for current contour. 

WMOVF - Wall movement factor for empty test section streamlining. 
IANAL - Analysis mode designator. 


Outputs: 

/WASCOM/ TWVDIF, BWVDIF, TWVSQ, BWVSQ, TWNVEL, BWNVEL, TWMOV, 
BWMOV 


TWVDIF - Array of top wall velocity differences (dv/UO) . 

BWVDIF - Array of bottom wall velocity differences (dv/UO) . 

TWVSQ - Array of top wall velocities squared (v**2/U0**2) . 

BWVSQ - Array of bottom wall velocities squared (v**2/U0**2) . 

TWNVEL - Array of top wall external velocities for the new 
(destination) contour (v/UO) . 

BWNVEL - Array of bot. wall external velocities for the new 
(destination) contour (v/UO) . 

TWMOV - Array of top wall jack movements for the new (destination) 
contour (Inches) . 

BWMOV - Array of bottom wall jack movements for the new (destination) 
contour (Inches) . 


Output Messages: 

****** WAS VI. 5 COMPUTING NOW !! ****** 

COUPLING FACTORS ##.## ##.## SCALING FACTORS ##.## ##.## 

WALL MOVE FACTOR (DY/DME) ##.### 


Processing: 

1) DO - Compute the velocity imbalance/vorticity at each 
wall computing point and external velocities for the 
predicted wall contours for the next iteration. 

2) Apply Prandtl-Glauert factor to measured top wall Cps. 

3) Apply Prandtl-Glauert factor to measured bottom wall Cps. 

4) Apply scaling factors to the external velocity 
calculations. 

5) ENDDO - Apply coupling factors to the external 
velocities. 

6) Freeze calculations for jack #1 and #22. 

7) For empty test section streamlining jump to 22. 

8) Make the first mid-jack co-ordinate at the wall anchor 
point to ensure a zero wall slope at this location. 

9) Determine other mid-jack co-ords between wall computing 
points . 

10) DO-Piecewise cubic curve fit to the wall vorticity using 
sets of four computing points (labeled 1,2, 3,4) . 

11) ENDDO-Calculate coefficients for each piecewise cubic 
curve fit. 

12) At each mid- jack point, integrate the vorticity along 
each wall to find the induced vertical velocities, 
assumed normal to the top and bottom walls, which must 
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be canceled by changes in the free stream component 
caused by local adjustments of wall slope. 

13) Initialize wall movement demand accumulators. 

14) Set wall slopes at the wall anchor points equal to zero. 

15) DO-Find the jack movements required for wall 
streamlining, by performing integrations of piecewise 
quadratic curves fitted to sets of three wall slopes. 

16) Top wall - movement demand coefficients. 

17) Bottom wall- movement demand coefficients. 

18) Scale jack movement demands. 

19) ENDDO— Couple jack movement demands. 

20) Compute jack #1 and #22 movement. 

21) Jump to 24. 

22) Calculate jack movement demands for constant wall Mach 
number during empty test section streamlining. 

23) Set imaginary (external) velocities to free stream. 

24) Determine jack movement demands for the variable 
diffuser. 

25) Return to main program. 


Exception Handling: None 




REAL N 
INTEGER CO 

DIMENSION X(4) ,VEL(4) , CUBCOE ( 30 , 4 ) ,XMIDJ(30) ,TSLOPE(30) ,BSLOPE(30) 
INCLUDE US L/ WAS COM , NOLIST 
DATA CO/@CO/,LO/@LO/ 

105 FORMAT (/ 9X , " ****** WAS VI. 5 COMPUTING NOW !! ******•') 

WRITE (CO, 105) 

NCPT1 = NOCPT-2 
NCPT2 = NOCPT-3 
NCPT3 = NOCPT-4 

135 FORMAT (/" COUPLING FACTORS ='\2F5. 2," SCALING FACTORS =",2F5.2) 

IF ( IANAL . NE . 1 ) WRITE (LO, 135) TWCPLF, BWCPLF, TWSF, BWSF 
C 

C COMPUTE THE VELOCITY IMBALANCE/WALL VORTICITY AT EACH WALL 

COMPUTING POINT AND EXTERNAL VELOCITIES FOR THE NEXT 
C PREDICTED WALL CONTOURS 

C 

BETA = SQRT ( 1- (FMACH*FMACH) ) 

Q1 = 0.7 * PSTATIC * FMACH * FMACH 
10 DO 5 I = 1 , NOCPT 

TCPC = (TOPWP (I) -PSTATIC) /Q1 
C 

C APPLY PRANDTL-GLAUERT FACTOR TO MEASURED TOP WALL CPS 

C 

TCPI = BETA*TCPC 
TVRATIO = SQRT ( 1— TCPI ) 

TVEL = TVRATIO- 1 
TWVDIF(I) = TVEL-TWVEL ( I ) 

TWVSQ(I) = ( TVEL+ 1 ) * ( TVEL+ 1 ) 

BCPC = ( BOTWP ( I ) -PSTATIC) /Q1 
C 

C APPLY PRANDTL-GLAUERT FACTOR TO MEASURED BOTTOM WALL CPS 

C 
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BCPI = BETA*BCPC 
BVRATIO = SQRT(l-BCPI) 

BVEL = BVRATIO- 1 
BWVDIF(I) = BWVEL(I) -BVEL 
BWVSQ(I) = ( BVEL+ 1 ) * ( BVEL+ 1 ) 

C 

C APPLY SCALING FACTORS TO THE EXTERNAL VELOCITY CALCULATIONS 

C 

TWNVEL(I) = TWVEL(I) + (TWSF*TWVDIF (I) /2) 

BWNVEL(I) = BWVEL(I)-(BWSF*BWVDIF(I)/2) 

C 

C APPLY COUPLING FACTORS TO THE EXTERNAL VELOCITIES 

C 

TNVEL = TWNVEL(I) 

TWNVEL(I) = TWNVEL ( I ) + ( BWCPLF* ( BWNVEL ( I ) -BVEL) ) 

BWNVEL ( I ) = BWNVEL(I) + (TWCPLF* (TNVEL-TVEL) ) 

5 CONTINUE 

C? 

C? 0.3-M TCT HARDWARE REQUIREMENTS 

C? FREEZE CALCULATIONS FOR JACK #1 AND #22 

C? 

TWVDIF ( 3 ) =0.0 
BWVDIF ( 3 ) =0.0 
TWNVEL ( 3 ) = 0.0 
BWNVEL ( 3 ) = 0.0 
IF ( IANAL . EQ . 1 ) GO TO 80 
C 

C MAKE THE FIRST MID- JACK CO-ORD AT THE WALL ANCHOR POINT 

C TO ENSURE A ZERO WALL SLOPE AT THIS LOCATION 

C 

XMIDJ(l) = XJACK(l) 

C 

C DETERMINE OTHER MID-JACK CO-ORDS BETWEEN WALL COMPUTING POINTS 

C 

DO 15 I = 2 , NCPT1 

XMIDJ(I) = (XJACK(I) +XJACK(I+1) )/2 
15 CONTINUE 

DO 25 NN = 1,2 
C 

C PIECEWISE CUBIC CURVE FIT TO THE WALL VORTICITY USING 

C SETS OF FOUR COMPUTING POINTS (LABELLED 1,2, 3, 4) 

C 

DO 95 IL = 1 , NCPT2 
I = IL - 1 
40 DO 35 J = 1,4 

X(J) = XJACK(I+J) 

IF (NN. EQ. 1) GO TO 50 
VEL(J) = BWVDIF (I+J) 

GO TO 35 

50 VEL(J) = TWVDIF ( I !-J) 

35 CONTINUE 

VO = (VEL(3)-VEL(?))/(X(3)-X(2)) 

VI = VEL(2) -V0*X(2) 

DIST1 = 1/ (X (4 ) -X ( 1) ) 

V2 = (VEL( 4 ) -V0*X ( 4 ) -VI) / ( (X (4 ) -X (2))*(X(3) —X ( 4) ) ) 

V3 = (VEL( 1) — V0*X (1) -VI) / ( (X ( 1) -X ( 2 ) ) * (X ( 3 ) -X ( 1) ) ) 

V4 = DIST1* (V2-V3 ) 

V5 = V3-V4*X(1) 
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DIST2 = X (2 ) + X ( 3 ) 

C 

C CALCULATE COEFFICIENTS FOR EACH PIECEWISE CUBIC CURVE FIT 

C 

CUBCOE ( IL, 1) = Vl-X(2) *X(3) *V5 
CUBCOE (IL, 2) = V0+V5*DIST2-V4*X(2) *X(3) 

CUBCOE ( IL, 3 ) = V4*DIST2-V5 
CUBCOE (IL, 4) = — V4 
95 CONTINUE 

C ' ' 

C AT EACH MID-JACK POINT, INTEGRATE THE VORTICITY ALONG EACH WALL 

C TO FIND THE INDUCED VERTICAL VELOCITIES , ASSUMED NORMAL TO THE 

C TOP AND BOTTOM WALLS, WHICH MUST BE CANCELLED BY CHANGES IN THE 

C FREE STREAM COMPONENT CAUSED BY LOCAL ADJUSTMENTS OF WALL SLOPE 

C 

DO 45 J = 2 , NCPT1 
XO = XMIDJ(J) 

XOSQ = XO*XO 
XOCUB = XOSQ*XO 
VELSUM =0.0 
DO 55 I = 1 , NCPT2 
XI =XJACK(I+1) 

COEFFO = CUBCOE (1,1) 

COEFF1 = CUBCOE (I, 2) 

COEFF2 = CUBCOE (I ,3) 

COEFF3 = CUBCOE (I, 4) 

X2 = XJACK(I+2) 

X2SQ = X2 * X2 
X1SQ = XI * XI 

SUMO = COEFFO+COEFF1*XO+COEFF2* (XOSQ) +COEFF3* (XOCUB) 

X3 = ABS (X2-X0) /ABS (X1-X0) 

X4 = ALOG (X3 ) 

SUM1 = (COEFF1+COEFF2*XO+COEFF3*XOSQ) * (X2-X1) 

SUM2 = (COEFF2+COEFF3*XO) * ( (X2SQ) - (X1SQ) ) /2 
SUM3 = COEFF3* ( (X2SQ*X2 ) - (X1SQ*X1) ) /3 
VELSUM = VELSUM+SUM0*X4+SUM1+SUM2+SUM3 
55 CONTINUE 

IF (NN.EQ.2) GO TO 60 
TSLOPE(J) = VELSUM/6. 28319 
GO TO 45 

60 BSLOPE(J) = VELSUM/6. 283 19 

45 CONTINUE 

25 CONTINUE 

C 

C INITIALISE WALL MOVEMENT DEMAND ACCUMULATORS 

C 

TMOV =0.0 
BMOV =0.0 
C 

C SET WALL SLOPES AT THE WALL ANCHOR POINTS EQUAL TO ZERO 

C 

TSLOPE ( 1) =0.0 
BSLOPE ( 1) =0.0 
C 

C FIND THE JACK MOVEMENTS REQUIRED FOR WALL STREAMLINING, 

C BY PERFORMING INTEGRATIONS OF PIECEWISE QUADRATIC CURVES 

C FITTED TO SETS OF THREE WALL SLOPES 

C 
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1 , NCPT3 


C 

C 
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C 

c 

c 


c 

c 

c 


c 

c 

c 
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C? 

c? 

c? 

c? 


c 

c 

c 
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DO 65 I = 

11 = 1+1 

12 = 1+2 

TSGRAD = (TSLOPE (12 ) -TSLOPE ( II ) ) / (XMIDJ (12 ) -XMIDJ (II) ) 
BSGRAD = ( BSLOPE ( 12 ) -BSLOPE (II) ) / (XMIDJ ( 12 ) —XMIDJ (II)) 
XJ1SQ « XJACK(Il) *XJACK(I1) 

XJ2SQ = XJACK(I2) *XJACK(I2) 

XJ1CUB = XJ1SQ * XJACK(Il) 

XJ2CUB = XJ2SQ * XJACK ( 12 ) 

XI = XMIDJ (I) -XMIDJ (II) 

X2 = XMIDJ (12) -XMIDJ (I) 

PI = (TSGRAD- (TSLOPE (I) -TSLOPE (II) ) /XI) /X2 
P2 = TSGRAD - P1*XMIDJ ( 12 ) 

X3 = XJACK (IJ|^JACK( II) 

TOP WALL - MOVEMENT DEMAND CUBIC COEFFICIENTS 

A = Pl/3 

B = (P2-P1*XMIDJ (II) )/2 
C = TSLOPE (II) - P2*XMIDJ (II) 

TMOV = TMOV+ (A* (XJ2CUB-XJ1CUB) ) + (B* (XJ2SQ-XJ1SQ) ) + (C*X3 ) 
PI = ( BSGRAD- ( BSLOPE ( I ) -BSLOPE (II) )/Xl) /X2 
P2 = BSGRAD - PI* XMIDJ ( 12 ) 

BOTTOM WALL - MOVEMENT DEMAND CUBIC COEFFICIENTS 

A = Pl/3 

B = (P2-P1*XMIDJ (II) )/2 
C = BSLOPE ( II ) - P2*XMIDJ (II) 

BMOV = BMOV+ (A* (XJ2CUB-XJ1CUB) ) + (B* (XJ2SQ-XJ1SQ) ) + (C*X3 ) 
SCALE JACK MOVEMENT DEMANDS 


STMOV = TWSF * TMOV 
SBMOV = BWSF * BMOV 

COUPLE JACK MOVEMENT DEMANDS 


TWMOV(I) = STMOV+ (BWCPLF*SBMOV) 
BWMOV(I) = SBMOV+ (TWCPLF*STMOV) 
CONTINUE 


0.3-M TCT HARDWARE REQUIREMENT 
COMPUTE JACK #1 AND #22 MOVEMENT' 


TWMOV(l) = TWMOV ( 2 ) / 2 
BWMOV(l) = BWMOV ( 2 ) / 2 
TW1 = TOPY (1) +TWMOV ( 1) 

BW1 = BOT Y ( 1 ) + BWMOV ( 1 ) 

IF (TW1.GT. 0.075) 'i'WMOV(l) 
IF (BW1.GT. 0.065) BWMOV(l) 
IF (TW1.LT.-.075) TWMOV(l) 
IF (BW1.LT.-.065) BWMOV(l) 
GO TO 70 


0 . 075-TOPY (1) 

0 . 065-BOTY (1) 
-0 . 075-TOPY ( 1) 
-0 . 065-BOTY ( 1) 


CALCULATE JACK MOVEMENT DEMANDS FOR CONSTANT WALL MACH NUMBER 
DURING EMPTY TEST SECTION STREAMLINING 
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80 SUM1 =0.0 
SUM2 =0.0 
SUM 3 =0.0 
SUM4 =0.0 
DO 75 J = 1 , NCPT3 
NM = J+2 

TMERR = TWMACH(J) -FMACH 

SUM1 = SUM1+TMERR 

SUM2 = SUM2 + (TMERR*TMERR) 

TWMOV(J) = TMERR* WMOVF 
BMERR = FMACH -BWMACH(J) 

SUM3 = SUM3+BMERR 

SUM4 = SUM4 + ( BMERR* BMERR ) 

BWMOV(J) = BMERR*WMOVF 
75 CONTINUE 

C 

C SET EXTERNAL ( IMAGIANARY ) VELOCITIES TO FREE STREAM 

DO 145 J = 1 , NOCPT 
TWNVEL(J) =0.0 
BWNVEL(J) =0.0 
145 CONTINUE 

TSD = SQRT ( (SUM2- ( (SUM1*SUM1) /NCPT3) ) / (NCPT3-1) ) 

BSD = SQRT( (SUM4-( (SUM3*SUM3)/NCPT3) )/ (NCPT3-1) ) 

115 FORMAT (/9X, " WALL MACH NO. STANDARD DEVIATIONS "/10X, " TOP =" , 
+ F8 . 4 , 2X, " BOTTOM = H ,F8.4) 

WRITE (CO, 115) TSD, BSD 
WRITE (LO, 115) TSD, BSD 

125 FORMAT (/10X, " WALL MOVE FACTOR (DY/DME) = ",F5.3) 

WRITE (LO, 125) WMOVF 
C 

C 0 . 3-M TCT HARDWARE REQUIREMENT 

C DETERMINE MOVEMENT DEMANDS FOR THE VARIABLE DIFFUSER 

C JACKS #19, #20, AND #21 ON BOTH WALLS 

C 

70 FRACT = 6 

DO 85 J = 19,21 

C TWMOV(J) = TWMOV(18)-((TWMOV(18)*(XJACK(J+2)-55.8))/14.9) 

TWMOV(J) = TWMOV(18) * (FRACT/8.) 

C BWMOV(J) = BWMOV(18)-((BWMOV(18)*(XJACK(J+2)-55.8))/14.9) 

BWMOV(J) = BWMOV ( 18 ) * (FRACT/8.) 

FRACT = FRACT + (J-22) 

85 CONTINUE 

RETURN 
END 


I 
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APPENDIX A. 8 - LISTING OF SUBROUTINE SUME 
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C SUBROUTINE SUME (STRSTAT) 

SUBROUTINE SUME 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


TITLE: 

AUTHOR: 

SYSTEM: 

PURPOSE: 


WALL INDUCED INTERFERENCES ASSESSMENT SUBROUTINE 
STEPHEN W.D. WOLF , NATIONAL RESEARCH COUNCIL 
CRYO-A 


CALCULATE WALL INDUCED INTERFERENCES ALONG THE 
TEST SECTION CENTERLINE AND THE MODEL CHORD- 
LINE, USING THE FLEXWALL PRESSURES. THEN 
ASSESS THE QUALITY OF WALL STREAMLINING. 


c 

REVISION 

HISTORY: 


c 

VERSION 

DATE 

DESCRIPTION 

c 

c 

1.1 

05/23/85 

INITIAL VERSION USING SIMPLE LINEARISED 

c 



THEORY. 

c 

1.2 

02/21/86 

CHANGE LP TO LO 

c 

1.3 

04/01/86 

REMOVE STREAMLINE MESSAGE 

c 

1.4 

04/04/86 

PRINT OUT XORIG AND YORIG 

c 

1.5 

12/22/86 

IMPROVE OUTPUT TO CONSOLE AND 

c 



MAKE RESIDUAL LIMITS MORE VISIBLE 

c 

1.6 

02/18/87 

INTERFERENCES BETAIZED 




C 

C COMPILER OPTIONS: $23 

C 

C LOGICAL FILES USED: 

C CO - OUTPUT TO CONSOLE 

C LO - OUTPUT TO LINEPRINTER 

C 

C Shared Regions: 

C FLXCOM 

C WAS COM 

C 

C User-Def inded Subroutine Calls: None 

C 

C Inputs: 

C /WASCOM/ ALPHA, CHORD, XORIG, YORIG, NOJACK, NOCPT, BWVEL, TWVEL, 

C TWVSQ, BWVSQ, TWYAS , BWYAS , DSTAS , DSBAS , TWDS, BWDS, TWVDIF, BWVDIF, 

C XJACK, WL, I ANAL, BETA 

C 

C Outputs : 

C /FLXCOM/ STRSTAT 

C STRSTAT - Streamlining status word. 

C 

C Output Messages: 

C WALL CP ERROR 

C TOP - ###.#### BOTTOM - ###.### ##.## (XORIG) ##.## (YORIG) 

C 

C SUME> VI. 6 RESIDUAL ERRORS 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


XO U/UFS V/UFS 

(Table of values on tunnel centerline) 

MODEL ERRORS 

(Table of values on model chordline) 

EFFECT DELTA CL 

ALPHA ERROR = #.### DEGREES ###.^## 

INDUCED CAMBER = #.### DEGREES ###.### 

CP ERROR (1/4 CHORD) = #.### 

CP ERROR (AVERAGE) = #.### ###.### 

RESIDUAL INTERFERENCES - ###.#### ###.#### ###.#### 

A . 0 . A . CAMBER CP 

ITERATION ## CP ERROR - TOP ##.### BOT ##.### 

RESIDUALS - ###.#### , ###.#### , ###.#### 

Processing: 

1) Set acceptable levels of residual interference. 

2) Calculate average wall Cp errors (Big E) . 

3) Sum wall induced velocities on tunnel centerline. 

4) Betaize the vertical ordinate of the vortex sheet. 

5) Sum wall induced velocities along model chordline. 

6) Betaize the vertical ordinate of the vortex sheet. 

7) Integrate the induced camber over the model chord. 

8) Assess the quality of wall streamlining and decide if the 

streamlining cycle can be terminated. 

9) Output data summary to operator console. 

10) Return to main program. 

Exception Handling: None 




INTEGER CO 

INCLUDE USL/FLXTYP, NOLIST 
DIMENSION UIND ( 49 ) ,VIND(49) ,CAMC(9) 

INCLUDE USL/FLXCOM, NOLIST 
INCLUDE USL/WASCOM, NOLIST 
DATA CO/0CO/, LO/@LO/ 

DATA CAMC/1. ,.75,. 5,. 25,0. ,-.25 ,-.5,-. 75,-1./ 

TOPI = 6.283185 

Q it it it it it it it it it it it it it it it it it it k ie it it it ^k it it it it it it k it it it it it "kit it it it it it it it it it it it it it rk it it it it it it ie ie k it -k it it -k it it it 

C 

C 0.3-M TCT TEST SECTION GEOMETRY 

C 

C * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * **** * * * * * * * * ** ********** * ************* 

c 

C STREAMWISE LOCATION OF MODEL PIVOT (TURNTABLE CENTER) 

C RELATIVE TO THE FLEXWALL ANCHOR POINT (INCHES) 

TURNTC = 30.75 
C 

C TUNNEL HALF HEIGHT (INCHES) 

THALFH=6 . 5 

C*************************************************************** 

C 

C SET ACCEPTABLE LEVELS OF RESIDUAL WALL INTERFERENCES 

C 

C* ************************************************************** 
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WCPE = 0.01 
RIAOA = 0.015 
RIAVA =0.07 
RICPE = 0.007 

AN1 = ALPHA * .01745 
AX = ( CHORD* COS ( AN 1) )/8. 

AY = (CHORD*SIN(ANl) )/8. 

OR = TURNTC - (XORIG*COS (AN1) ) + (YORIG*SIN (AN1) ) 

CPSUM =0.0 

NJ1 = NOJACK- 3 

YPOS =0.0 

W DATUM = THALFH 

TSUM = 0. 

BSUM = 0. 

NMPT1 = NOCPT-2 
C 

C CALCULATE AVERAGE WALL CP ERRORS (BIG E) 

C 

DO 5 I = 3 , NMPT1 
VI = BWVEL(I) +1 
V2 = TWVEL(I) +1 
BWVEL(I) - VI * VI 
TWVEL(I) = V2 * V2 

TSUM = TSUM + ABS (TWVSQ(I) -TWVEL(I) ) 

BSUM = BSUM + ABS ( BWVSQ ( I ) -BWVEL ( I ) ) 

5 CONTINUE 

CET = TSUM/NJ1 
CEB = BSUM/NJ1 

105 FORMAT (//17X, " WALL CP ERROR"/8X, " TOP - " , F8 . 4 , 

+ 5X," BOTTOM - ” , 3F8 . 4 ) 

WRITE (LO, 105) CET, CEB,XORIG, YORIG 
IF (IANAL.EQ. 0) GO TO 10 

115 FORMAT (/// 12X , " SUME> VI. 6 RESIDUAL ERRORS”) 

WRITE (LO, 115) 

125 FORMAT ( 6X , ” X0",8X," U/UFS M ,6X," V/UFS”) 

WRITE (LO, 125) 

DO 15 1=1,49 

XI = OR + ( (1-25) *1 . 0) 

SUMU =0.0 
SUMV =0.0 
C 

C SUM WALL INDUCED VELOCITIES ON TUNNEL CENTERLINE 

C 

DO 25 J = 1 , NJ1 

X2 = XI - (XJACK ( J+2 ) ) 

Y1 = YPOS+WDATUM+TWYAS ( J) + (DSTAS ( J) -TWDS ( J) ) 

Y2 = YPOS-WDATUM— BWYAS ( J) + (BWDS ( J) — DSBAS ( J) ) 

PI = X2 * X2 
C 

C BETAIZE THE VERTICAL ORDINATE OF THE VORTEX SHEET 

C 

BY1 = BETA * Y1 
BY2 = BETA * Y2 
P2 = PI + (BY1*BY1) 

P3 = PI + (BY2*BY2 ) 

R1 = X2/P2 
R2 = Y1/P2 
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R3 = Y2/P3 

U1 = (TWVDIF (J+2 ) *R2 ) + (BWVDIF (J+2 ) *R3 ) 

U1 = (U1*WL(J) ) /TOPI 
VI = (TWVDIF ( J+2 ) + BWVDIF ( J+2 ) ) *R1 
VI = (V1*WL(J) ) /TOPI 
SUMU = SUMU + U1 
SUMV = SUMV + VI 
25 CONTINUE 

UIND(I) = SUMU 
VIND(I) = SUMV 
X3 = (1-25) * 1.0 
135 FORMAT (F11.2, IX, 2F12 .4) 

WRITE(LO, 135) X3 , UIND ( I ) , VIND ( I ) 

15 CONTINUE 

145 FORMAT (/5X, " MODEL ERRORS" , 2 5X, " CP"/) 

WRITE (LO, 145) 

10 SUMODD =0.0 

SUMEVEN =0.0 
SUMEND =0.0 
DO 35 K = 1,9 
XI = OR - ( (3-K) *AX) 

YPOS = - (YORIG*COS (AN1) ) - (XORIG*SIN (AN1) ) - ( (3-K) *AY) 
SUMU =0.0 
SUMV =0.0 
C 

C SUM WALL INDUCED VELOCITIES ALONG MODEL CHORDLINE 

C 

DO 45 J = 1 , NJ1 

X2 = XI - (XJACK ( J+2 ) ) 

Y1 = YPOS+WDATUM+TWYAS ( J) + (DSTAS ( J) -TWDS (J) ) 

Y2 = YPOS— WDATUM— BWYAS (J) + (BWDS (J) -DSBAS (J) ) 

PI = X2 * X2 
C 

C BETAIZE THE VERTICAL ORDINATE OF THE VORTEX SHEET 

C 

BY1 = BETA * Y1 
BY 2 = BETA * Y2 
P2 = PI + (BY1*BY1) 

P3 = PI + (BY2*BY2) 

R1 = X2/P2 
R2 = Y1/P2 
R3 = Y2/P3 

U1 = (TWVDIF (J+2 ) *R2)+ (BWVDIF (J+2) *R3) 

U1 = (U1*WL(J) ) /TOPI 
VI = (TWVDIF (J+2 )+BWVDIF (J+2 )) *R1 
VI = (V1*WL(J) ) /TOPI 
SUMU = SUMU + U1 
SUMV = SUMV + VI 
45 CONTINUE 

ANGIND = ATAN ( SUMV/ ( 1+SUMU) ) 

CPIND = 1.0 - ( (1+SUMU) * (1+SUMU) ) 

IF (K.EQ.3) CPERR = CPIND 
CPSUM = CPSUM + CPIND 
XI = XI - OR 
155 FORMAT ( 4F12 . 4 ) 

IF (IANAL.GT.O) WRITE (LO, 155) XI , SUMU , SUMV , CPIND 
IF (K.EQ.l) ANGLE) = ANGIND 
IF (K.EQ.9) ANGTE = ANGIND 
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c 

C INTEGRATE THE INDUCED CAMBER OVER THE MODEL CHORD 

C 

CAMCL = ANGIND * (l-CAMC(K)) 

IF (K.EQ.l.OR.K.EQ.9) GO TO 20 
INTEGER = K/2 
INTEGER = INTEGER*2 
IF (INTEGER. EQ.K) GO TO 30 
SUMODD = SUMODD + CAMCL 
GO TO 35 

30 SUMEVEN = SUMEVEN + CAMCL 

GO TO 35 

20 SUMEND = SUMEND + CAMCL 

35 CONTINUE 

AVCPE = CPSUM/9 . 0 

PI = SUMEND+ (2*SUMODD) + (4*SUMEVEN) 

P2 = ( AX/3 ) *P1 
TCAMCL = 2*P2 

AVANG = (ANGLE -ANGTE) * 59.29578 
165 FORMAT (/10X, " EFFECT" , 25X, " DELTA CL") 

IF (IANAL.GT.O) WRITE (LO, 165) 

ANGCL = TOPI * ANGLE 
ANGLE = ANGLE * 59.29578 
IF(IANAL.EQ.O) GO TO 40 

175 FORMAT (/5X, " ALPHA ERROR = " , F8 . 4 , " DEGREES ", 5X , F8 . 4 ) 

WRITE (LO, 175) ANGLE, ANGCL 

185 FORMAT (/5X, " INDUCED CAMBER = " , F8 . 4 , " DEGREES” , 2X, F8 . 4) 
WRITE (LO, 185) AVANG, TCAMCL 
195 FORMAT (/5X,” CP ERROR (1/4 CHORD) =",F8.4) 

WRITE (LO, 195) CPERR 
VELCL=-CPERR 

205 FORMAT (5X," CP ERROR ( AVERAGE ) =" , F8 . 4 , 5X, F8 . 4///) 

WRITE (LO, 205) AVCPE, VELCL 

215 FORMAT (/” RESIDUAL INTERFERENCES = ",3F8.4/30X, 

+ " A.O.A. CAMBER CP '•) 

40 IF (IANAL. EQ. 0) WRITE (LO , 215) ANGLE, AVANG, AVCPE 

IF(IANAL.EQ.l) GO TO 50 
C 

C ASSESS THE QUALITY OF WALL STREAMLINING AND DECIDE IF THE 

C STREAMLINING CYCLE CAN BE TERMINATED 

C 

ISC=0 

IF(CET.LE.WCPE) ISC=ISC+1 
IF (CEB.LE.WCPE) ISC=ISC+1 
IF (ABS (ANGLE) . LE . RIAOA) ISC=ISC+1 
IF (ABS (AVANG) . LE . RIAVA) ISC=ISC+1 
IF (ABS (AVCPE) . LE . RICPE) ISC=ISC+1 
IF (ISC.EQ. 5) STRSTAT=1 
C 

C OUTPUT DATA SUMMARY TO OPERATOR CONSOLE 

C 

WRITE (CO, 225) ITERATION, CET, CEB 

225 FORMAT (55 ( ) /5X, " ITERATION ",I2," CP ERROR - TOP ",F7.4, 
+" , BOT " , F7 . 4 ) 

WRITE (CO, 235) ANGLE , AVANG , AVCPE 
235 FORMAT (7X, " RESIDUALS - ",F8.4,2(" ,”,F8.4)) 

50 RETURN 

END 


118 
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ooooooooooooooooooooooo 


C SUBROUTINE OUT ( STRSTAT ) 

SUBROUTINE OUT 

Q** ******************** ********************************************** 

c 

c 

C TITLE: DATA MANIPULATION AND DISPLAY SUBROUTINE 

C 


c 

AUTHOR: 

STEPHEN 

W.D. WOLF , NATIONAL RESEARCH COUNCIL 

L. 

C 

c 

SYSTEM: 

CRYO-A 


c 

c 

PURPOSE : 

SORT WALL DATA AND OUTPUT SAME TO THE LINEPRINTER 

c 

c 


AND DISK. 

c 

c 

REVISION 

HISTORY: 


c 

r* 

VERSION 

DATE 

DESCRIPTION 

C 

c 

1.1 

05/23/85 

INITIAL VERSION CAPABLE OF ONLY 

c 



WRITING DATA TO LINEPRINTER 

c 

1.2 

06/17/85 

INCLUDE CALL TO SWFILE TO STORE 

c 



NEW "STRAIGHT WALL" DATA IN THE 

c 



REFERENCE TABLE ON DISK. 

c 

1.3 

06/27/85 

REDUCED WALL DATA STORAGE ON DISK 

c 

1.4 

02/21/86 

CHANGE LP TO LO 

c 

1.5 

03/31/86 

SET LOGICAL NAME OF REDUCED DATA FILE TO 12 

c 

1.6 

05/16/86 

SEND REDUCED DATA DIRECT TO TAPE 

c 

1.7 

05/21/86 

READ COMPLETE REDUCED DATAFILE DIRECTORY 

c 

1.8 

06/25/86 

REVISED ERROR MESSAGES 

c 

1.9 

10/17/86 

REMOVE REAL-TIME DATA STORAGE ON TAPE 

c 

2.0 

12/22/86 

ENSURE B/LAYER DATA IS STORED ON DISK 

c 

2.1 

12/31/86 

IMPROVED I/O OPERATIONS 


C 

C* ******************************************************************** 


COMPILER OPTIONS: $23 

LOGICAL FILES USED: 

CO - OUTPUT TO CONSOLE 
LO - OUTPUT TO LINEPRINTER 
12 - REDUCED DATA DATAFILE 


Shared Regions: 

FLXCOM 

WASCOM 

User-Defined Subroutine Calls: 
ERROR 


Inputs: 

/FLXCOM/ STRSTAT 

STRSTAT - Streamlining status word. 

/WASCOM/ CREY, CHORD, I ANAL, NOJACK, FMACH, ALPHA, TOPY, BOTY, 
TWMOV, BWMOV, TWYAS, BWYAS , TWNVEL, BWNVEL, TWDS, BWDS 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Outputs : 

/FLXCOM/ JPOSN 

JPOSN - Array of new (destination) jack positions (Inches) . 

/WASCOM/ TWVEL, BWVEL, TOPY, BOTY 
TWVEL - Array of top wall external velocities for the new 
(destination) contour (v/UO) . 

BWVEL - Array of bot. wall external velocities for the new 
(destination) contour (v/UO) . 

TOPY - Array of top wall new (destination) jack positions (Inches) . 
BOTY - Array of bottom wall new (destination) jack positions 
(Inches) . 

Reduced data datafile - KBUFF, LBUFF, TMACH, TREYNO, TALPHA, 
TCHORD, DATA (See listing of file TABASS for variable descriptions) 


Output Messages: 

DATA SUMMARY - EMPTY TEST SECTION STREAMLINING 
DATA SUMMARY - RE -ANALYSIS OUTPUT 
DATA SUMMARY - DEVELOPMENT STREAMLINING 
DATA SUMMARY - INFINITE FLOW STREAMLINING 
TOP WALL 

JACK FROM ST NEXT VEL MOVE JACKS - NOW - TO SET 

(Table of reduced data) 

BOTTOM WALL 

(Table of reduced data) 

*** WARNING - USING LAST RECORD AVAILABLE *** 

OUT> REDUCED DATA DISKFILE IS FULL ! ! ! 

REDUCED DATA STORED IN RECORD ### 


Processing: 

1) Decide what sort of printout is required. 

2) Printout data summary and overwrite current jack 
positions with predicted positions (TOPY(*), BOTY ( * ) ) . 

3) Load up TWVEL and BWVEL for next iteration. 

4) If walls are streamlined (STRSTAT = 1) jump to 7. 

5) Read oonfig. info, from the reduced data datafile. 

6) Write reduced data and config. info, to the reduced data 
datafile. 

7) Return to main program. 

Exception Handling: 

A warning is given to the operator that the last available record 
on the reduced data datafile is being used. The operator needs to 
copy this datafile to tape and then initialize the datafile. If no 
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C corrective action is taken the next data point will result in an 

C error trap (STRSTAT = -1) causing an error message, a call to 

C subroutine ERROR for additional output information and the return of 

C control to the main program. 

C 

C 


C** *********************************************************** ******** 
INTEGER CO 
INTEGER* 4 IREC 
INCLUDE USL/FLXTYP, NOLIST 

DIMENSION TWY (21) ,BWY(21) ,TMACH(126) ,TREYNO(126) ,TALPHA(126) 
DIMENSION TCHORD (126) ,KBUFF(256) ,LBUFF(256) ,ITEST(126) ,ITRUN(126) 
DIMENSION ITDATA(126) , ITER (12 6) , DATA (12 8) 

C 

C *** COMMON *** 

C 


C 

C 

C 


C 

c 

c 


155 

165 

175 

205 

105 

115 


C 

C 

C 

C 

10 


INCLUDE USL/FLXCOM , NOLIST 
INCLUDE USL/WASCOM, NOLIST 

*** EQUIVALENCE *** 


EQUIVALENCE ( KBUFF ( 1 ) , NREC) 
EQUIVALENCE ( KBUFF ( 2 ) , ITEST ( 1 ) ) 
EQUIVALENCE (KBUFF (128), ITRUN ( 1 ) ) 
EQUIVALENCE ( LBUFF ( 1 ) , ITDATA ( 1 ) ) 
EQUIVALENCE (LBUFF (128) ,ITER(1) ) 
DEFINE FILE 12 ( 126 , 256 , U, IREC) 
DATA CO/§CO/,LO/@LO/ 

IFLIM = 126 

UREYNO = CREY * 12 / CHORD 


DECIDE WHAT SORT OF PRINTOUT IS REQUIRED 

IF (IANAL.EQ. 0) WRITE (LO, 205) 

IF(IANAL.EQ.l) WRITE(LO, 155) 

IF(IANAL.EQ.2) WRITE (LO, 165) 

IF(IANAL.EQ. 3) WRITE (LO, 175) 

FORMAT ( 1H1 , " DATA SUMMARY - EMPTY TEST SECTION STREAMLINING”) 

FORMAT ( 1H1 , " DATA SUMMARY - RE -ANALYSIS OUTPUT") 

FORMAT (1H1," DATA SUMMARY - DEVELOPMENT STREAMLINING") 

FORMAT (1H1," DATA SUMMARY - INFINITE FLOW STREAMLINING") 

FORMAT (3X," TOP WALL") 

WRITE (LO, 105) 

FORMAT (5X," JACK",3X," FROM ST",2X," NEXT VEL",3X," MOVE", 

+ " JACKS - NOW - TO SET") 

WRITE (LO, 115) 

NJ1 = NO JACK- 3 


NJ2 = NOJACK + NOJACK 
DATA ( 1 ) = FMACH 
DATA (2) = CREY 
DATA (3) = ALPHA 


PRINTOUT DATA SUMMARY AND OVERWRITE CURRENT JACK POSITIONS 
WITH PREDICTED POSITIONS ( TOPY(*) , BOTY ( * ) ) 

DO 5 J = 1, NO JACK 
NM = J + 2 

TWY ( J) =TOPY ( J) +TWMOV ( J) 


122 



OOOW to OOO 


JPOSN ( J , 1) = TWY(J) 

DATA ( J+ 3 ) = TWY(J) 

WP = TWYAS(J) 

125 FORMAT (7X, 12 , Fll ,3,F11.4,F10.3,5X, 2F8 . 3 ) 

IF (J.LE.NJ1) WRITE (LO, 125) J , WP, iWNVEL(NM) ,TWMOV(J) ,TOPY(J) ,TWY(J) 
145 FORMAT (7X, I2,F11.3,11X,F10.3,5X, 2F8 . 3 ) 

IF (J.GT.NJ1) WRITE(LO, 145) J, WP, TWMOV ( J) , TOPY ( J) , TWY ( J) 

TOPY(J) = TWY (J) 

IF (IANAL.EQ. 1) TWY(J) = TWY(J) - TWMOV(J) 

5 CONTINUE 

135 FORMAT ( 2 X,” BOTTOM WALL") 

WRITE (LO, 135) 

WRITE (LO, 115) 

20 DO 15 J = 1, NOJACK 

NM = J + 2 

BWY ( J) =BOTY ( J) +BWMOV (J) 

JPOSN (J, 2) = BWY (J) 

DATA ( J+NOJACK+3 ) = BWY(J) 

WP = BWY AS ( J) 

IF ( J. LE.NJ1) WRITE (LO, 125) J, WP, BWNVEL(NM) ,BWMOV(J) ,BOTY(J) ,BWY(J) 
IF (J.GT.NJ1) WRITE (LO, 145) J, WP, BWMOV(J) , BOTY (J) , BWY ( J) 

BOTY(J) = BWY(J) 

IF (IANAL.EQ. 1) BWY(J) = BWY (J) -BWMOV(J) 

15 CONTINUE 

LOAD UP TWVEL & BWVEL FOR NEXT ITERATION 

DO 25 I = l,NOCPT 
TWVEL ( I ) = TWNVEL(I) 

DATA ( I+NJ2+3 ) = TWNVEL(I) 

BWVEL ( I ) = BWNVEL(I) 

DATA ( I+NOCPT+NJ 2+3 ) = BWNVEL(I) 

5 CONTINUE 

NFILL = N J 2+3 +NOCPT+NOCPT 
DO 30 I = 1,NJ1 
DATA ( NFILL+I ) = TWDS(I) 

DATA (NFILL+NJ1+I) =* BWDS(I) 

0 CONTINUE 

IF (STRSTAT.EQ. 1) GO TO 40 

READ REDUCED DATA CONFIG INFO FROM DISK 

READ ( 12 '1) KBUFF 
RE AD (12' 2) LBUFF 
READ (12* 3) TMACH 
READ ( 12 ' 4 ) TREYNO 
READ (12 ’5) TALPHA 
READ (12 '6) TCHORD 

IF ( ITERATION. EQ.1)NREC = NREC + 1 
IF (NREC. EQ. IFLIM) WRITE (CO, 215) 

IF (NREC. EQ. IFLIM) WRITE (LO, 215) 

215 FORMAT (///10X, " *** WARNING - USING LAST RECORD AVAILABLE ***") 
IF (NREC. LE. IFLIM) GO TO 230 
WRITE (LO, 225) 

225 FORMAT (//" OUT> REDUCED DATA DISKFILE IS FULL !!! ") 

I ERROR = 999 
CALL ERROR (IERROR) 

STRSTAT = -1 


123 


non 


230 


GO TO 40 

ITEST(NREC) = IBTSTNR 
ITRUN(NREC) = IBRUNNR 
ITDATA (NREC) = IBPTNR 
ITER(NREC) = ITERATION+1 
TMACH (NREC) = FMACH 
TREYNO (NREC) = UREYNO 
T ALPHA ( NREC ) = ALPHA 
TCHORD (NREC) = CHORD 

WRITE REDUCED DATA AND CONFIG INFO TO DISK 

WRITE (1 2' 1) KBUFF 
WRITE (12 '2) LBUFF 
WRITE (12’ 3) TMACH 
WRITE ( 1 2 ’ 4 ) TREYNO 
WRITE (12' 5) TALPHA 
WRITE (12 '6) TCHORD 
IREC = NREC 
WRITE ( 12 'IREC) DATA 
WRITE (LO, 235) NREC 
235 FORMAT (/16X, " REDUCED DATA STORED IN RECORD ",13) 
40 RETURN 
END 
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APPENDIX A. 10 - LISTING OF SUBROUTINE ERROR 
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SUBROUTINE ERROR (IERROR) 

0 * ******************************************************************** 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

0 ********************************************^************************ 


TITLE: 

AUTHOR: 

SYSTEM: 

PURPOSE : 


FLXWAS ERROR MESSAGE SUBROUTINE 

STEPHEN W.D. WOLF , NATIONAL RESEARCH COUNCIL 

CRYO-A 


OUTPUT ERROR MESSAGES TO THE LINEPRINTER 
AND CONSOLE 


REVISION HISTORY: 
VERSION DATE 


DESCRIPTION 


1.1 

1.2 


06/25/86 INITIAL VERSION 

12/23/86 REVISED ERROR MESSAGES 


COMPILER OPTIONS: $23 

LOGICAL FILES USED: 

CO - OUTPUT TO CONSOLE 
LO - OUTPUT TO LINEPRINTER 

CALLING SEQUENCE: 

CALL ERROR (IERROR) 

WHERE IERROR = INPUT ERROR CODE: 

0 - NO ERROR 

1 - FAILURE TO BRACKET MACH NO. 

2 - FAILURE TO BRACKET REY. NO. 

3 _ COMBINATION OF ABOVE ERRORS 

4 - MISSING DATA RECORD 

5 - JACK ERROR ON TOP WALL 

6 - JACK ERROR ON BOTTOM WALL 
999 - DATAFILE FULL 

Shared Regions: None 

User-Defined Subroutine Calls: None 

Inputs : 

Subroutine call - IERROR (Input error code) 

Outputs : None 

Output Messages: 

FLXWAS > *** MACH NUMBER NOT BRACKETED ON DATAFILE *** 

FLXWAS>** REYNOLDS NUMBER NOT BRACKETED ON DATAFILE ** 
FLXWAS>** TEST PARAMETERS NOT BRACKETED ON DATAFILE ** 
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FLXWAS> *** MISSING DATA RECORD ON DATAFILE *** 


C 
C 
C 

C FLXWAS> *** TOP WALL JACK POSITION ERROR *** 

C 

C FLXWAS> *** BOTTOM WALL JACK POSITION ERROR *** 

C 

C FLXWAS> *** DATAFILES NEED TO BE INITIALIZED *** 

C 

C Processing: None 

C 

C Exception Handling: None 

C 

C 

Q********************************************************************* 

INTEGER CO 

DATA CO/@CO/,LO/@LO/ 

IF (IERROR.EQ. 1) WRITE (LO, 10) 

IF (IERROR.EQ. 1) WRITE(CO,10) 

10 FORMAT (" FLXWAS> *** MACH NUMBER NOT BRACKETED ON DATAFILE ***") 
IF (IERROR.EQ. 2) WRITE(LO,20) 

IF (IERROR.EQ. 2) WRITE(CO,20) 

20 FORMAT (" FLXWAS> ** REYNOLDS NUMBER NOT BRACKETED ON DATAFILE **") 
IF (IERROR.EQ. 3) WRITE(LO,30) 

IF (IERROR.EQ. 3) WRITE(CO,30) 

30 FORMAT (" FLXWAS> ** TEST PARAMETERS NOT BRACKETED ON DATAFILE **") 
IF (IERROR.EQ. 4) WRITE(LO,40) 

IF (IERROR.EQ. 4) WRITE(CO,40) 

40 FORMAT (" FLXWAS> *** MISSING DATA RECORD ON DATAFILE ***") 

IF (IERROR.EQ. 5) WRITE (LO, 50) 

IF (IERROR.EQ. 5) WRITE(CO,50) 

50 FORMAT (" FLXWAS> *** TOP WALL JACK POSITION ERROR ***") 

IF (IERROR.EQ. 6) WRITE(LO,60) 

IF (IERROR.EQ. 6) WRITE(CO,60) 

60 FORMAT (" FLXWAS> *** BOTTOM WALL JACK POSITION ERROR ***") 

IF (IERROR.EQ. 999) WRITE(LO,70) 

IF (IERROR.EQ. 999) WRITE(CO,70) 

70 FORMAT (" FLXWAS> *** DATAFILES NEED TO BE INITIALISED ***") 
RETURN 
END 
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APPENDIX B 


LISTING OF INCLUDED SOURCE FILES - 
FLXCOM. FLXTYP. FWPTYP. FWPEOU. WASCOM and OAPCM 
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APPENDIX B.l - LISTING OF FLXCOM (Flexwall Control System Common Definitions) 


I 
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c* 

c* 

c* 

c* 

c* 

c* 

c* 


********************************************************************** 


* FLXCOM * 

* 02/24/86 * 

FLEXWALL COMMON DEFINITIONS * * 

* * 

* * 


********************************************************************** 


COMMON /FLXCOM/ 


C 

C= 

c 

c= 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


FLEXWALL TASK CONTROL SECTION 


* FLXISW, 


( FSTAT , FLXOP) 
(FLXOP) 

(FLXOP) 

( FLXWAS , DASFLX) 

BY MICRO (FI SOFT) 


* FLXICW, 


* FSSTAT , 


FLEXWALL INTERRUPT STATUS WORD. A BIT SET (=1) 
INDICATES AN INTERRUPT IS ACTIVE. A BIT 
RESET (=0) INDICATES AN INTERRUPT IS INACTIVE. 

EACH BIT REPRESENTS AN INTERRUPT AS FOLLOWS: 

BIT 1 SYSTEM ERROR 

2 MICRO FAILURE (FIFAIL) 

3 HARD LIMIT DETECTED BY MICRO (FIHARD) 

4 TERMINATE WALL MOVE 

5 INITIATE WALL MOVE 

6 RESUME WALL MOVE 

7 REPORT MOVE STATUS 

8 SOFT LIMIT DETECTED 

9 INITIATE LIMIT RECOVERY (FLXOP) 

10 INITIALIZE WALL CONFIGURATION (FLXOP) 

11 CONFIGURE WALLS (DASFLX) 

12-16 RESERVED 

FLEXWALL INTERRUPT CONDITION WORD. EACH BIT 
INDICATES THE ENABLED/DISABLED CONDITION OF THE 
OF THE INTERRUPT CORRESPONDING TO BITS OF 
THE FLEXWALL INTERRUPT STATUS WORD [FLXISW]. 

0 = DISABLED 

1 = ENABLED 

FLEXWALL SYSTEM STATUS WORD. 


BIT 

1 

2 

3 

4 

5 

6 
7 

8-16 


MEANING 0/1 

COMPUTER/MANUAL CONTROL MODE (FSTAT) 
NORMAL/OVERRIDE KEY-SWITCH POSITION 
(FSTAT) 

NOHARD/HARD LIMIT EXISTS (FSTAT) 
NOSOFT/SOFT LIMIT EXISTS (FSTAT) 
JACK MOTORS DISABLED/ENABLED (FSTAT) 
SYSTEM NOHOLD/HOLD BY OPERATOR 
WALL MOVE DISABLED/ENABLED 
(FLXCTL, FMVSTR) 

RESERVED 


* FLXXSW , 

* FLXOPT, 


RESERVED — NOT USED — OBSOLETE 

FLEXWALL TASK OPTION WORD. 

BIT MEANING 0/1 

1 NODUMP/DUMP MOVE PARAMETERS 

2 DISABLE/ENABLE LIMIT CHECKS 
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c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


3 AUTOMATIC/OPERATOR WALL MOVE 

4 CONTINUOUS/SINGLE ITERATION MODE 

5 CONTINUOUS MODE — 

NOWAIT/WAIT FOR TEST CONDITIONS UPDATE 

6 CONTINUOUS MODE — 

NOPAUSE/PAUSE 'WAS' ANALYSIS 
7-16 RESERVED 

* PLTMODE , 

FLEXWALL PLOT TASK OPERATIOAL MODE CONTROL WORD 
-1= STOP 

0= REPLOT WHEN POINT NO. CHANGES 

N>0= REPLOT AFTER N SECONDS 

* PLTTYPE ( 2 ) , 

PLOT TASK PLOT TYPE FOR GRAPHS 1 AND 2 
0= NO GRAPH 

1= WALL POSITIONS 

2= WALL PRESSURES 

3= WALL MACH NUMBERS 

4= WALL POSITIONS (BOTTOM WALL SIGN REV.) 

5= DELTA MACH NUMBER 

* PLTPOS ( 2 ) , 

PLOT TASK GRAPH POSITION FOR GRAPHS 1 AND 2 
1= FULL SCREEN 

2= TOP HALF SCREEN 

3= BOTTOM HALF SCREEN 

* PLTYMAX ( 2 ) , 

PLOT TASK MAX. Y VALUE PLOTTED FOR GRAPHS 1 AND 2 

* PLTYMIN ( 2 ) , 

PLOT TASK MIN. Y VALUE PLOTTED FOR GRAPHS 1 AND 2 

* PLTTEXT , 

PLOT TASK TEXT CONTROL WORD 

(SAME DEFINITION AS PLTTYPE) 

* CTLO 01(47) , 

RESERVED LOCATIONS. 

* MVSTAT, 

MOVE STATUS WORD (FMVSTR) : 

0 = MOVE INITIATED OR IN PROGRESS 

1 = MOVE SUCCESSFULLY COMPLETED 

2 = MOVE FAILURE — SYSTEM IN MANUAL MODE 

3 = MOVE FAILURE — JACK MOTORS DISABLED 

4 = MOVE FAILURE — TARGET HARD LIMITS 

5 = MOVE FAILURE — CURRENT HARD LIMITS 

6 = MOVE FAILURE — JACK MOVE ERROR (S) 

7 = MOVE TERMINATED 

* STRSTAT, 

STREAMLINE STATUS WORD (FLXWAS) : 

-1 = ERROR — WALL STREAMLINING ABORTED 

0 = WALLS ARE NOT STREAMLINED 

1 = WALLS ARE STREAMLINED 

* MCSTAT , 

MICROPROCESSOR STATUS: 

THIS VALUE IS READ FROM IOIS SLOT 7 (#6). 

FOR BITS 1-8, THE ACTUAL VALUE RECEIVED IS 
THE ONE'S COMPLEMENT OF THE VALUES SHOWN 
BELOW. ALSO, X = 1 INDICATES THE UPPER WALL, 

X = 2 INDICATES THE LOWER WALL 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

* AQSTAT, 


* CALSTAT, 


* AQBUSY, 


* AQRQST, 


* AQUSER(2) , 

* LMBUSY, 

* LMRQST, 

* LMUSER(2) , 


T(S) 

VALUE 

MEANING 

-8 

00 

NORMAL 


01-42 

JACK OUT OF LIMITS 


5X 

+FULL-SCALE CALIBRATION ERROR 


6X 

ZERO-SCALE CALIBRATION ERROR 


7X 

-FULL-SCALE CALIBRATION ERROR 


8X 

TIMEOUT (A-TO-D ERROR) 

9 

1 

ABSOLUTE HIGH LIMIT 

10 

1 

ABSOLUTE LOW LIMIT 

11 

1 

RELATIVE HIGH LIMIT 

12 

1 

RELATIVE LOW LIMIT 

13 

1 

HARD LIMIT 

14 

1 

SOFT LIMIT 

15 

0 

COMPUTER CONTROL MODE 


1 

MANUAL CONTROL MODE 

16 

0 

NORMAL OPERATION MODE 


1 

OVERRIDE OPERATION MODE 


ACQUISITION STATUS: 
0 = OPERATIONAL 


CALIBRATION STATUS: 

-1 = NOT PERFORMED 

0 = FAILURE 

1 = SUCCESS 


ACQUISITION TASK BUSY STATUS: 
0 = NOT BUSY 

1-N = REQUEST IN PROGRESS 


DATA ACQUISITION REQUEST CODE. A BIT 
SET (=1) INDICATES THE TYPE OF DATA 
REQUESTED. ONCE THE DATA IS OBTAINED AND 
PLACED IN THIS COMMON REGION (FLXCOM ) , 

THE RESPECTIVE BIT IS CLEARED BY THE 
ACQUISITION TASK. 

BIT 1 = CURRENT JACK POSITIONS 

2 = FLEXWALL PRESSURES 

3 = RUN (TUNNEL) DATA FROM DAS (CPU B) 

4 = AVERAGE CURRENT JACK POSITIONS 

5-16 = RESERVED 


SIX-CHARACTER CAN-CODE NAME OF THE TASK 
CURRENTLY REQUESTING DATA. 

LIMIT MONITOR TASK BUSY STATUS: 

0 = NOT BUSY 

1-N = REQUEST IN PROGRESS 

LIMIT REQUEST CODE. THE VALUE OF BITS 2-16 OF 
THIS CODE INDICATES THE LIMITS BEING REQUESTED: 

0 = NONE 

1 = CURRENT JACK POSITION LIMITS 

2 = DESTINATION JACK POSITION LIMITS 

IF BIT 1 IS SET (=1) , THEN A LIMIT REPORT WILL 
BE WRITTEN TO THE LINE PRINTER. 

SIX-CHARACTER CAN-CODE NAME OF THE TASK 
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c 


LIMSTAT 


CURRENTLY REQUESTING LIMITS 


C 

C 

C 

C 

C 

C 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* 


t 


* JSTAT (23,2) , 


LIMIT STATUS WORD. A BIT SET (=1) INDICATES 
THE SPECIFIED CONDITION IS TRUE. A BIT IS 
RESET (=0) WHEN THE CONDITION CLEARS. 

BIT 1 = HARD LIMIT AT CURRENT JACK POSITIONS 
DETECTED BY MICRO. 

2 = HARD LIMIT AT CURRENT JACK POSITIONS 

DETECTED BY 1 FLXLIM ' . 

3 = SOFT LIMIT AT CURRENT JACK POSITIONS 

DETECTED BY MICRO. 

4 = SOFT LIMIT AT CURRENT JACK POSITIONS 

DETECTED BY 'FLXLIM 1 . 

5-8 = RESERVED 

9 = HARD LIMIT AT DESTINATION JACK POSITIONS 
DETECTED BY 'FLXLIM'. 

10 = SOFT LIMIT AT DESTINATION JACK POSITIONS 
DETECTED BY 'FLXLIM'. 

11-16 = RESERVED. 


CURRENT JACK POSITION STATUS TABLE. EACH 

WORD OF THIS TABLE CORRESPONDS TO A WALL 

JACK STATION OR WALL ENDPOINT AS FOLLOWS: 

JSTAT ( 1,1) = FIXED END (UPPER) 

JSTAT ( 2,1) - J STAT (22,1) = JACKS 1-21 

JSTAT (2 3,1) = FLOATING END (UPPER) 

JSTAT ( 1,2) = FIXED END (LOWER) 

JSTAT ( 2, 2) -JSTAT (22, 2) = JACKS 22-42 

JSTAT (2 3, 2) = FLOATING END (LOWER) 


BITS IN A WORD ARE SET (=1) TO INDICATE THE 
FOLLOWING CONDITION (S) : 

BIT 1 = HARD RELATIVE UPPER LIMIT 

2 = HARD ABSOLUTE UPPER LIMIT 

3 = SOFT RELATIVE UPPER LIMIT 

4 = SOFT ABSOLUTE UPPER LIMIT 
5-8 = RESERVED 

9 = HARD RELATIVE LOWER LIMIT 

10 = HARD ABSOLUTE LOWER LIMIT 

11 = SOFT RELATIVE LOWER LIMIT 

12 = SOFT ABSOLUTE LOWER LIMIT 
13-14 = RESERVEQ 

15 = JACK DIRECTION ERROR 

16 = JACK MOVE ERROR 

* JNSTAT (23,2) , 

NEW JACK POSITION STATUS TABLE. THIS TABLE 
IS USED THE SAME WAY AS [JSTAT] , EXCEPT 
FOR DESTINATION JACK POSITIONS. 

* JPOS (21,2) , 

CURRENT JACK POSITIONS (INCHES) . 

* JPOSN (21,2) , 

NEW (DESTINATION) JACK POSITIONS (INCHES) . 

* JPOSL (21,2) , 

LAST (PREVIOUS) JACK POSITIONS (INCHES) . 

* CTL999 ( 4 ) 

RESERVED LOCATIONS. 
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C D A COMMUNICATIONS COREDEVICE IMAGE 


* I AS TAT, 

* IACCW, 

* IAMODE , 

* IARSV 

* JPOSA (21,2) , 

* WPRS (22,2) , 

* IARSV1(80), 


COMMUNICATIONS STATUS WORD. 
COMMUNICATIONS CONTROL WORD. 
COMMUNICATIONS MODE. 

COMMUN I CT ION RESERVED WORD. 

AVERAGED CURRENT JACK POSITIONS (INCHES) 
WALL PRESSURES (PSIA) . 

RESERVED LOCATIONS. 


C D B COMMUNICATIONS COREDEVICE IMAGE 


* IBCCW, 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


* IBTSTNR, 

* IBRUNNR, 

* IBPTNR, 

* IBHOUR, 

* IBMIN, 

* XBSEC, 

* XBPT, 

* XBTT 

* XBPS , 

* XBAOA , 

* XBMACH , 

* XBHT, 

* XBENTPY, 

* XBTS , 

* XBRHOS , 

* XBPBR , 


COMMUNICATIONS CONTROL WORD. 
#8000 - CONFIGURE WALLS 
#4000 - CLEAR STATUS WORD 
#2000 - TERMINATE DATA POINT 

TEST NUMBER (CPU B) 

RUN NUMBER (CPU B) 

POINT NUMBER (CPU B) 

HOUR DATA ACQUIRED. 

MINUTE DATA ACQUIRED. 

SECOND DATA ACQUIRED 

TOTAL PRESSURE (PSIA) 

TOTAL TEMPERATURE (KELVIN) 

STATIC PRESSURE (PSIA) 

ANGLE OF ATTACK (DEGREES) 

FREE STREAM MACH NUMBER 

TOTAL ENTHALPY (JOULES/MOLE) 

ENTROPY (JOULES/MOLE-KELVIN) 

STATIC TEMPERATURE (KELVIN) 

STATIC DENSITY (SLUGS/FT**3) 
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XREYNO , 
XCHORD, 
IBRSV ( 192 ) , 
WASPAR (16) 


BAROCELL REFERENCE PRESSURE. 
REYNOLDS NUMBER BASED ON CHORD 
MODEL CHORD (INCHES) 

RESERVED LOCATIONS. 

WALL ADJUSTMENT STRATEGY PARAMETERS 
(SEE "FWPEQU ' ' FOR EQUIVALENCES). 


END OF COMMON DEFINITION 


APPENDIX B.2 - LISTING OF FLXTYP (Flexwall Common Type Declarations) 


t 


PRECEDING PAGE BLANK NOT FILMED 
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PAGE J2A JNTfcfWOWftUY BLAWK 


c* ********************************************************************** 

c* - * FLXTYP * 

C* * 02/26/86 * 

C* FLEXWALL COMMON TVPE DECLARATIONS * * 

C* * * 

C* * * 

C*********** ***************************************** ******************* 
C 

INTEGER* 2 FLXISW, FLXICW, FSSTAT 
INTEGER* 2 FLXXSW, FLXOPT 
INTEGER*2 PLTMODE , PLTTYPE , PLTPOS 
REAL* 4 PLTYMAX , PLTYMIN 

INTEGER* 2 PLTTEXT 

INTEGER* 2 MVSTAT , STRSTAT , MCSTAT , AQSTAT , CALSTAT 
INTEGER* 2 CTLO 0 1 , CTL9 9 9 

INTEGER* 2 AQBUSY, AQRQST, AQUSER _ 

INTEGER* 2 LMBUSY , LMRQST , LMUSER 
INTEGER* 2 LIMSTAT , JSTAT , JNSTAT 
C 

REAL* 4 JPOS, JPoSN, JPOSL, JPOSI 

C 

INTEGER* 2 IASTAT , IACCW, IAMODE, IARSV 
INTEGER* 2 IARSV1 
C 

REAL* 4 JPOSA , WPRS 

C 

INTEGER* 2 IBCCW 

INTEGER* 2 IBTSTNR, IBRUNNR, IBPTNR 
INTEGER*2 IBHOUR,IBMIN 
REAL* 4 XBSEC 

INTEGER* 2 IBRSV 


REAL* 4 XBPT , XBTT , XBPS , XBAOA , XBMACH , XBHT , XBENTPY 

REAL* 4 XBTS , XBRHOS , XBPBR, XREYNO , XCHORD 

REAL* 4 WAS PAR 



APPENDIX B.3 - LISTING OF FWPTYP (Flexwall “WASPAR” Type Declarations) 


ooo ooooooooo 


C* ************************************************************************* 


* FWPTYP * 

* 02/26/86 * 

FLEXWALL " WAS PAR" TYPE DECLARATIONS * * 

* * 

* * 


************************************************************************* 


REAL* 4 SPMACH , SPREYN , SPAOA 

REAL* 4 XLORIG , YLORIG 


C* ************************************************************************* 


APPENDIX B.4 - LISTING OF FWPEQU (Flexwall “WASPAR” Equivalences) 
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non no 


Q* *************************************************************** ******* 

C* * FWPEQU * 
C* * 02/26/86 * 
C* FLEXWALL "WAS PAR" EQUIVALENCES * * 
C* * * 


C* 

C* 

C 

C 

C 

C 


* * 

********************************************************************** 


1 

2 

3 


EQUIVALENCE (WASPAR( 1) , SPMACH) , 
(WASPAR(2) , SPREYN) , 
(WASPAR(3) ,SPA0A ), 
(WASPAR ( 4 ) , XLORIG) , 


4 (WASPAR (5 ) ,YLORIG) 


MACH NUMBER. 

CHORD REYNOLDS NUMBER IN MILLIONS. 
ANGLE OF ATTACK. 

MODEL 1/4 CHORD POSITION UPSTREAM 
OF THE TURNTABLE CENTER. 

MODEL 1/4 CHORD POSITION ABOVE THE 
TURNTABLE CENTER. 
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APPENDIX B.5 - LISTING OF WASCOM (WAS Common Definitions) 
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no oo no on no no on on on no no on noon on non on 


C********************************************************************* 
c* * 05/04/87 * 

c* * * 

C* WALL ADJUSTMENT STRATEGY COMMON DEFINITION * WASCOM * 

C* * * 

c* * * 


COMMON /WASCOM/ 


NO. OF FLEXWALL JACKS 
+ NO JACK, 

NO. OF COMPUTING POINTS REQUIRED , USUALLY NO. OF S/LINING JACKS + 4 
+ NOCPT, 

STREAMWISE LOCATION OF THE WALL COMPUTING POINTS 
ON EACH FLEXWALL RELATIVE TO THE FLEXWALL 
ANCHOR POINT (INCHES) 

+ XJACK(23) , 

WALL SEGMENT LENGTH PER JACK (INCHES) 

+ WL(21) , 

TOP WALL JACKS Y CO-ORDINATES (INCHES) 

+ TOPY (21), 

BOTTOM WALL JACKS Y CO-ORDINATES (INCHES) 

+ BOTY (21) , 

TOP WALL IMAGINARY (EXTERNAL) VELOCITIES (V/UO) 

+ TWVEL(22), 

BOTTOM WALL IMAGINARY (EXTERNAL) VELOCITIES (V/UO) 

+ BWVEL(22 ) , 

TOP WALL CENTERLINE STATIC PRESSURES (PSIA) 

+ TOPWP (22 ) , 

BOTTOM WALL CENTERLINE STATIC PRESSURES (PSIA) 

+ BOTWP (22), 

D* THICKNESS ALONG THE TOP WALL (INCHES) 

+ TWDS ( 18 ) , 

D* THICKNESS ALONG THE BOTTOM WALL (INCHES) 

+ BWDS ( 18) , 

WAS COMPUTED NEW TOP WALL EXTERNAL VELOCITY DISTRIBUTION (V/UO) 

+ TWNVEL(22 ) , 

WAS COMPUTED NEW BOTTOM WALL EXTERNAL VELOCITY DISTRIBUTION (V/UO) 
■f BWNVEL(22) , 

WAS COMPUTED TOP WALL MOVEMENT DEMANDS (INCHES) 

+ TWMOV (21), 
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c 

C WAS COMPUTED BOTTOM WALL MOVEMENT DEMANDS (INCHES) 

+ BWMOV (21), 

C 

C TOP WALL MEASURED VELOCITIES SQUARED 

+ TWVSQ (22 ) , 

C 

C BOTTOM WALL MEASURED VELOCITIES SQUARED 

+ BWVSQ ( 22 ) , 

C 

C VELOCITY DIFFERENCES ACROSS THE TOP WALL 

+ TWVDIF (22 ) , 

C 

C VELOCITY DIFFERENCES ACROSS THE BOTTOM WALL 

+ BWVDIF (22) , 

C 

C MACH NUMBER DISTRIBUTION ALONG THE TOP WALL 

+ TWMACH (21), 

C 

C MACH NUMBER DISTRIBUTION ALONG THE BOTTOM WALL 

+ BWMACH (21), 

C 

C* **************************************************************** 
C TEST PARAMETER COMMON 

Q* ************************************************************** ** 

c 

C AIRFOIL AOA (DEGREE) 

+ ALPHA, 

C 

C AIRFOIL CHORD (INCHES) 

+ CHORD, 

C 

C STREAMWISE LOCATION OF MODEL 1/4 CHORD UPSTREAM OF MODEL 

C PIVOT (TURNTABLE CENTER) IN INCHES 

+ XORIG, 

C 

C LOCATION OF MODEL 1/4 CHORD ABOVE MODEL PIVOT 

C (TURNTABLE CENTER) IN INCHES 

+ YORIG, 

C 

C FREE STREAM MACH NUMBER 

+ FMACH, 

C 

C CHORD REYNOLDS NUMBER 

+ CREY , 

C 

C REFERENCE TOTAL PRESSURE (PSIA) 

+ PTOTAL, 

C 

C REFERENCE STATIC PRESSURE (PSIA) 

+ PSTATIC, 

C 

C REFERENCE TOTAL TEMPERATURE (KELVIN) 

+ TTOTAL , 

C 

C WORKING FLUID DENSITY (SLUG/FT**3) 

+ DENSITY, 

C 
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c* **************************************************************** 
c WALL ADJUSTMENT STRATEGY FACTORS 

C* **************************************************************** 

TOP WALL MOVEMENT COUPLING FACTOR 
+ TWCPLF, 

BOTTOM WALL MOVEMENT COUPLING FACTOR 
+ BWCPLF, 

TOP WALL MOVEMENT SCALING FACTOR 
+ TWSF, 

BOTTOM WALL MOVEMENT SCALING FACTOR 
+ BWSF, 

EMPTY TEST SECTION STREAMLINING MOVEMENT FACTOR 
+ WMOVF, 

:**************************************************************** 
FLEXWALL AERO-STRAIGHT COMMON 

**************************************************************** 

TOP WALL JACK Y CO-ORDINATES RELATIVE TO AERO. STRAIGHT (INCHES) 
+ TWYAS (21), 

BOTTOM WALL JACK Y CO-ORDS RELATIVE TO AERO. STRAIGHT (INCHES) 

+ BWYAS (21) , 

TOP WALL D* THICKNESS WITH AERO. STRAIGHT CONTOURS (INCHES) 

+ DSTAS ( 18 ) , 

BOTTOM WALL D* THICKNESS WITH AERO. STRAIGHT CONTOURS (INCHES) 

+ DSBAS ( 18 ) , 

**************************************************************** 

PRANDTL-GLAUERT FACTOR 
+ BETA, 

Q COMPRESSIBILITY CORRECTION FACTOR 
+ QCOR, 

PASS NO. 

+ PASS, 

STREAMLINING CYCLE ITERATION NO. 

+ ITERATION, 

ANALYSIS SPECIFIER 
+ I ANAL, 

SPARE ARRAY 
+ FLXSPR (21,2) 

C 

C 

C END OF COMMON DEFINITION 

C 

C 
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APPENDIX B.6 - LISTING OF OAPCM (System Common Definitions) 
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(^★★★★★********Tic*************************Tit*********ir*********Tic**Tlc*Tlc**-Ar-*Tic* 

C* O A P CONFIGURATION CONTROL 

C* 

C* FOR THE TASK OAP OF THE CRYOA SYSTEM 

C* 

£**★★★*■*★★*********★**★★*★**★★**★****★★**★★***★*★★★*****★★★***■*★*****■*★* 

C* 

C* FUNCTIONAL DESCRIPTION: 

C* 

C* THIS IS THE FORTRAN LANGUAGE VERSION OF OAP COMMON. REFER TO 

C* TECHNICAL DOCUMENTATION FOR A DETAILED BREAKDOWN OF THE DATA 

C* STRUCTURES WITHIN THIS COMMON. (THE CORRESPONDING ASSEMBLY VERSION 
C* IS CALLED AO APR) . 

C* 

C*********************************************************************** 

c* 

c* CALLING SEQUENCE 
C* 

C* OAP CREATES OAPCOM COMMON AS A PRIVATE SHARED 

C* REGION, AND PROVIDES INITIAL VALUES AND SETS 

C* FLAGS TO INITIAL CONDITIONS. 

C* 

C*********************************************************************** 


c* 

C* REVISION HISTORY: 

C* MOD. NO. DATE BY DESCRIPTION 

C RESPONSIBLE PROGRAMMER: R. L. KRIEGER 

C R . T . ROTH 

C LATEST REVISION LEVEL: 0.0 

C* 08-12-85 CPK ADDED STANDARD OAP TEMPLATE TO COMMON 

C* 

C WARNING ! ! ! ! VARIABLE ISCAN CAN BE MISTAKEN FOR ISCAN THE 

C LIBRARY FUNCTION. 


C 

INTEGER* 2 SBUFF , SRATE , IWRTSN , IANSCN , PRPONT , DAUFLG , STATFG , I BYRD , 

* I BYWT , LIMPER , ALOBTS , GRP , POS , CRTCTL , I DGS CN , IBDAVG , FORMAT , PERCAL , 

* CLLIM , AVCKWK , PONTNO , CHANCT , IPSWD , IMODE , LMPBTS , NAMES , 

* VLVBTS , MXPT , DELY , SCNFLG , NOFREC , NOOFSV , NOPRSS , REQPRS , SPRCOM , TD1, 

* TD2 , TD3 , PAVG , PFDLY , NOSETS , PSDLY , PADLY , SNSOR , TOLPER , ESPFLG , ATMPER, 

* RECLEN , RECODE , TESTNO , BATCH , RUN , SCAN , FRAME , ID , DATE , TKINMN , TSYSGN , 

* MNDAY , YEAR , NOANL , NODG , NOSCV , HI PORT , I BDFRM , IABORT , PCALTP , SCANRT , 

* RECTYP , ESPLEN , NUMDM , SPARE , BADFLG , PORTNO , SYSID , IANRD1 , 

* IANRD2 , ISCAN , ACHAN , DCHAN , FULLCM , INTBTS , CRTTBL , LINE25 , LIMTBL , 

* PNAME , PUNIT , GDT , CURPRT , PVCKWK , PNLINT, IPRSS1, IPRSS2 
C 

INTEGER*4 AVGBUF, ESPAVG, SCNBUF 
C 

REAL* 6 DC 
C 
C 

C SOME COMMONLY USED POINTERS AND STATUS INDICATORS 

C 

C 

COMMON/ OAPCOM/ SBUFF , SRATE , IWRTSN , IANSCN ( 2 ) , PRPONT ( 2 ) , DAUFLG , 

* STATFG , I BYRD , I BYWT , LIMPER , ALOBTS , GRP , POS , CRTCTL , I DGSCN ( 2 ) , IBDAVG , 

* FORMAT , PERCAL , CLLIM , AVCKWK , PONTNO , CHANCT , I PSWD ( 2 ) , IMODE , LMPBTS , 

C 
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THE NAME TABLE FOR THE DIGITAL CONSTANTS PANEL 

* NAMES (7, 18) , 

SCANNIVALVE TABLE 

* VLVBTS , MXPT , DELY , SCNFLG , CURPRT , PVCKWK , NOFREC , NOOFSV, 


ESP PRESSURE SYSTEM TABLE 

* NOPRSS , REQPRS , SPRCOM, TD1 , TD2 , TD3 , PAVG , PFDLY , NOSETS , PSDLY , 

* PADLY, SNSOR, TOLPER, ESPFLG, ATMPER, DC ( 12 ) , 

TAPE HEADER RECORD 

* RECLEN , RECODE , TESTNO , BATCH , RUN , SCAN , FRAME , ID , DATE , TKINMN , TSYSGN , 

* MNDAY , YEAR , NOANL , NODG , NOSCV , HIPORT , IBDFRM , IABORT , PCALTP , 

* SCANRT , RECTYP , ESPLEN , NUMDM , SPARE ( 3 ) , BADFLG, PORTNO , SYSID, 

READ SCAN TABLES 

* IANRD1(196) ,IPRSS1(512) , 

* IANRD2 ( 196) , IPRSS2 (512 ) , 

WRITE SCAN TABLES 

* ISCAN (216) , 

ANALOG CHANNEL ATTRIBUTE TABLE 

ACHAN (1,1) - ADDRESS/ZERO IF NOT SCANNED 

ACHAN (2,1) * ATTRIBUTE 

ACHAN (3, I) « DATAMETRICS ADDRESS 

* ACHAN (3,128) , 

DIGITAL CHANNEL ATTRIBUTE TABLE 

DCHAN ( 1 , I ) = ADDRESS - ZERO IF NOT SCANNED 
DCHAN (2,1) ■ ATTRIBUTE WORD 

* DCHAN(2, 16) , 


PANEL INTERRUPT FLAG 
♦PNLINT, 

SPARE COMMON 

* FULLCM(84) , 

INHIBIT BITS FOR MODACS COMMON ALARM INTERRUPTS 

* INTBTS , 


CRT DISPLAY TABLE 

CRTTBL (1,1) = DATA ADDRESS/CHANNEL NUMBER 
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C CRTTBL (2,1) = CRT ATTRIBUTE WORD 

C CRTTBL (3, I) = DATA ATTRIBUTE WORD 

C CRTTBL (4 , I) - (7 , I) = CAN CODE PARAMETER NAME 

C CRTTBL (8,1)— (10,1) = CAN CODE UNITS NAME 

C 

* CRTTBL (10,24) , 

C 

C REST OF DISPLAY TABLE FOR DISPLAYS 

C LINE25 ( 1) = DATA ADDRESS/CHANNEL NUMBER 

C LINE2 5 ( 2 ) = BLINK STATUS 

C LINE25 ( 3 ) = FORMAT CODE/ CHANGE FLAG 

C LINE25 (4) _ (6) = CAN CODE NAME 

C LINE25 ( 7 ) - ( 10 ) = CAN CODE UNITS 

C 

C 5 OTHER DISPLAY UNITS 

C 

♦LINE25 ( 60) , 

C 

C LIMIT CHECK TABLE 

C LIMTBL ( 1) = DATA ADDRESS OR CHANNEL NUMBER 

C LIMTBL ( 2) = ATTRIBUTE WORD 

C LIMTBL ( 3 ) - ( 4 ) = UPPER LIMIT 

C LIMTBL ( 5) - (6) = LOWER LIMIT 

C 

♦LIMTBL (6,30) , 

REST OF TABLE IS FOR NAMED PARAMETER LIMITS 
PNAM (1,1) - (4,1) = CAN CODE NAME FOR PARRAMETER 

♦PNAME (4,30) , 

TABLE FOR LIMIT UNITS 

PUNIT (1,1) - (3,1) = UNIT ASSIGNED TO LIMIT 
♦PUNIT (3,30) , 

GAIN DATA TABLE 
*GDT (36) , 

AVERAGE RECORD BUFFER 

* AVGBUF ( 144 ) , 

ESP AVERAGE DATA BUFFER 

* ESPAVG (512) , 

SCANNIVALVE AVERAGE DATA BUFFER 

* SCNBUF (480) 

C 

C 

C END OF COMMON DEFINITION 

C 

C 


150 


APPENDIX C 


Version 1.6 


ABORT PROCEDURES 

Error Conditions and Causes 

1) Software Error - Wall adjustment strategy has failed to converge in six iterations. 

- Datafile(s) not initialized correctly. 

2) Hardware Error - Jack movement and/or direction failure. 

3) Jack Limit Reached - Wall curvature hard limit in current or target wall shapes. 

4) CPU-B operator has aborted data point. 

(e.g. messages “DASFLX> "TERMINATE MOVE" RECEIVED FROM CPU-B 
IABORT (EOJ FLX 7553*) /FLXWAS /FLXWAS” appears) 

5) Link Abort - CPU-B System RTP has gone down. 

(e.g. message “ABORT (LAF LKT 9C8C*) /FLXACQ /FLXACQ” appears) 

6) Scanivalve Sync Error - Floor and/or ceiling scanivalve problem. 

(e.g. message “ABORT (FER AL2 7EC6) /FLXWAS /FLXWAS” appears) 

7) FMVSTR> Move Terminated - Jack movement and/or direction failure. 

8) MT3 Offline - Failure to read or write to the tape drive. 

9) Parity Error - Loss of memory integrity or disc memory partition. 

(e.g. message “[Error Location] OFFLINE PAR” appears) 

Remedial Actions 

[Note - Auto Mode is used for wall streamlining, Manual Mode is used for flexwall exercising] 
1. Software Error (Auto Mode only): 


a) Look at the lineprinter and/or console output for the current data point. 

b) Locate the error message(s) and interpret as follows: 

i) “SOFTWARE ERROR” message only - Check that six iterations have 
been performed, if not then review output. Observe the variation of the wall Cp errors for each 
iteration. If they are reducing then re-start or continue the streamlining cycle (see sub-section 
6.3). If these values are not reducing then check test condition Stability and/or selection of initial 
wall contours, before continuing. 

ii) “OUT> REDUCED DATA DISKFILE IS FULL !!” message appears 
with “FLXWAS> DATAFILES NEED TO BE INITIALISED” message - Make a tape backup of 
the reduced data datafile then initialise the same datafile and modify the datafile to include at 
least the data record for the last set of contours run in the test section, using procedures in 
Appendix E. 


(Continued on next page) 
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1. Software Error (Continued): 

iii) “INITWAL> STRAIGHT WALL DATA ERROR” message with one of 
the following messages: 

“FLXWAS> FAILURE TO BRACKET MACH NO. ON DATAFILE” - Check Mach number in 
setup parameters table is within Reference Table limits. 

“FLXWAS> FAILURE TO BRACKET REYNOLDS NO. ON DATAFILE” - Check Reynolds 
number in setup parameters table is within Reference Table limits. 

“FLXWAS> TEST PARAMETERS NOT BRACKETED ON DATAFILE” - Check integrity of 
Reference Table directory using procedures in Appendix D. 

“FLXWAS> MISSING RECORD ON DATAFILE” - Check integrity of Reference Table using 
viewing procedures in Appendix D. 

iv) “WALDAT> STRAIGHT WALL DATA ERROR” message with same 
associated messages as for situation iii) above - Carry out the same actions except examine the 
test Mach number and Reynolds number in the raw data block on the lineprinter output. If all is 
well, check integrity of the Reference Table using the viewing procedures in Appendix D 

v) ”WALDAT> RAW DATA ERROR” message followed by “FLXWAS> 
DATAFILES NEED TO BE INITIALISED” message. - Check the integrity of the raw data 
datafile using viewing procedures in Appendix E. If there is no directory, initialize the datafile. 
If 126 records 1 have 'been used, make a tape backup of the datafile then initialize the datafile 
using procedures described in Appendix E. 


2. Hardware Error (Auto Mode only): 


a) View the jack status table on the CPU-A console and the lineprinter. The 
status code is as follows: 

0 - Jack operational 

1 - Jack movement failure after three attempts to move 

jammed jack 

2 - Jack direction failure 

3 - Combination of above failures 

#### - Curvature limit reached 

(See documentation on task CRVLIM 7 ) 

b) If there are no hard limit messages, try to move the walls again by selecting the 
IC option from the FLXOP Menu 7 , repeat up to three times only. 

c) If b) fails, attempt to return to the wall contours from the previous data point. 
First match the set-up parameters table with the test conditions for the previous data point, using 
the SP option from the FLXOP Menu. Then use the IC option to move the flexwalls. Note it may 
be useful to display wall movement information during this recovery operation using the DUMP 
operating option. The operator selects this option using the SO option from the FLXOP Menu. 

d) If a jack movement failure occurs again then try manual control of the wall 
shapes. Change to manual mode by using the SO option from the FLXOP Menu, then selecting 
‘MO’ for manual operation from Select Options Menu. 

(Continued on next page) 


152 


2. Hardware Error (Continued): 


e) Attempt to shake the jack free using the following procedure: 

i) Select ‘SM’ from FLXOP Menu. 

ii) Select ‘RM’ from Select Move Menu. 

iii) Instruct jacks adjacent to the jammed jack to move to relieve the local 
wall curvature by viewing the current jack positions, as shown below. 
(Limit the movement per attempt to 0.03 inch to try to avoid further 
complications, i.e. more jacks jammed.) 


New Wall Shape 
to Reduce Curvature 



iv) Move jacks using ‘IM’ option from FLXOP Menu. 

v) Repeat steps i) to iv) to move the jammed jack to minimize wall 
curvature, i.e. move the jack towards its neighbour jack positions. 

vi) Repeat steps i) to v) if the jack remains jammed. 

vii) Abort testing and inspect the jack mechanisms. 

f) If problems are encountered again whilst moving to the next required wall 
shapes consider the following questions: 

i) Is the attempted wall move from a curved shape to flat? 

ii) Are the target contours beyond the capabilities of the test section? 

iii) Is there a problem with the jack mechanisms? 

iv) Have the LVDT signals drifted? 

g) If the answer to either question i) or ii) above is YES then use short Sine wave 
wall shapes to recover. First select the SM option from FLXOP Menu then ‘SI’ from the Select 
Move Meun. Then select a peak size initially roughly equal to the current maximum wall 
deflection near the model (jacks #9 and #10) and select the appropriate wall as prompted. 
Initiate wall movement using the IM option from the FLXOP Menu. If successful, reduce the 
peak size for subsequent moves in small increments until the wall is moving freely. If this 
procedure is unsuccessful, abort testing and inspect the jack mechanisms. 
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3. Jack Limit Reached 


3. 1 Auto Mode : 


a) Select ‘SO’ from the FLXOP Menu. 

b) Type in ‘MO’ then press [RETURN] key twice. 

c) Activate the limit recovery task by selecting ‘LR’ from the FLXOP Menu. 

d) If step c) is successful (ie message “ FMVLR> MOVE COMPLETE will appear 
on the CPU-A console), select ‘SO’ from the FLXOP Menu, then type in ‘MA’ and press 
[RETURN] key twice. Exit procedure. 

e) Find out where the limit has occurred by using the SR option from the FLXOP 
Menu and select ‘CL’ for a current location report, then look at the lineprinter output. 

f) If the jack limit has occurred where a wall deflection of about 1 inch is 
indicated, abort testing and check that the corresponding position transducer (LVDT) has not 
gone open circuit. 

g) If not, disable limits using the blind DL option from the Select Options Menu. 

h) Reset limit status with CNTL A /FLXLIM/MOD #4F 0 then CNTL A //R. 

i) Try the procedure for recovery from a Hardware Error starting at step (d). 

j) Enable limits using the blind EL option from the Select Options Menu. 


3.2 Manual Mode : 

a) Determine where the limit has occurred by using the SR option from the 
FLXOP Menu and select ‘CL’ for a current location report, then look at the lineprinter output. 

b) If the jack limit has occurred where the wall deflection is about 1 inch, check 
that the corresponding position transducer (LVDT) on the test section is not open circuit. 

c) Disable limits using the blind DL option from the Select Options Menu. 

d) Reset limit status with CNTL A /FLXLIM/MOD #4F 0 then CNTL A //R. 

e) Try the procedure for recovery from a Hardware Error starting at step (e). 

f) Enable limits using the blind EL option from the Select Options Menu. 
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4. Terminate Move (Auto Mode only): 


a) Check status of test schedule with CPU-B operator. 

b) Prepare for the next data point (See sub-section 6.2) or perform the end of the 
days testing procedures (See 0.3-m TCT Adaptive Wall Test Section Operator’s Manual). 

5. Link Abort (Auto Mode only): 

a) Wait until the CPU-B RTP software is running again. 

b) Re-established the flexwall control system (FLXRUN) software using Floor and 
Ceiling Datametrix calibrations recalled from disc. (See 0.3-m TCT Adaptive Wall Test Section 
Operator’s Manual for more details.) 

c) Re-set XLORIG and YLORIG using the SP option from the FLXOP Menu. 

d) Prepare for the next data point (see sub-section 6.2). 

6. Scanivalve Sync Error (Auto Mode only): 

a) Ask CPU-B operator to abort the data point. 

b) Check the operation of the CPU- A scanivalves in an ‘Off-line’ mode and 
ensure correct operation before continuing the data point. 

c) Prepare for the next data point (see sub-section 6.2). 

7. FMVSTR> Move Terminated (Manual Mode only): 

a) Try remedial action for a Hardware Error starting at step (c). 

b) If the jammed jack refuses to free up then inspect jack mechanisms. 

8. MT3 Offline : 

a) Check correct tape is loaded on MT3. 

b) Ensure clean tape is not file protected. 

c) Check MT3 select switch in cabinet below MT3 is in the CPU-A position. 
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9. Parity Error : 


a) Write down the message from the CPU- A console. 

b) Determine if the error has occured within memory partitions ASW, BSA or 
BSB, i.e. message “ASW' OFFLINE PAR” appears. If so, one of the WAS software datafiles is 
lost and remedial action must be taken before continuing testing. If not, proceed with caution 
whilst informing the computer manager of this occurrence. 

c) Re-assign the WAS software datafile(s) to other free memory partitions by 
typing in CNTL A /FLXWAS/ASS [Logical filename] [New memory partition], CNTL A //R. 

d) Initialize the lost datafile (see Appendix D or E) and continue testing. This 
procedure requires the use of utility software which used to accesses the lost datafile. The 
affected tasks must now be given new datafile assignments before execution. We do this by first 
establishing the task by typing in the following: CNTL A /[Taskname]/EST, i.e. /DFVIEW/EST 
for task DFVIEW. Then any logical file assignments to the lost memory partition are changed by 
typing in the following: CNTL A /[Taskname]/ASS [Logical filename] [New memory partition 
name], i.e. /DFVIEW/ASS 12 BSC to reassign logical file 12 to BSC. Ensure that the assignment 
changes are consistent from task to task. To execute these established tasks type in CNTL A 
/[Taskname]/E, i.e. /DFVIEW/E for task DFVIEW. 

e) Change disc packs when possible, the disc cannot be trusted after this sort of 
failure has occurred. 
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Version 1.1 


APPENDIX D 

REFERENCE TABLE DOCUMENTATION 


Introduction 


We reference all movements of the flexible floor and ceiling of the AWTS to “Aerodynamically 
Straight” (AS) contours. We define the AS contours as wall shapes which produce a constant 
stream wise Mach number distribution along each flexible wall, with the test section empty. The 
resulting wall contours diverge to make an allowance for the boundary layer growth on all four 
walls of the test section. The AS contours are dependent on test Mach number and to a lesser 
extent test Reynolds number. The contours may be found experimentally or by calculation. 

The WAS software described in this report uses a Reference Table datafile to look-up the 
appropriate AS contours for the actual test conditions in the wind tunnel. This Reference Table 
datafile resides on memory partition ASW with data assignments as listed in the source file 
FMASSIGN in Appendix D.l. 

A suite of utility software exists to support the use of the Reference Table datafile. All the 
associated procedures require only the Modcomp CPU-A to be operational and the location of the 
Reference Table datafile defaults to memory partition ASW. 


Listing the Reference Tstk Datafile 


i) Type in the following command CNTL A /SWFL1ST/E. 

ii) The Reference Table directory will appear on the lineprinter. 

iii) Respond with “Y” for a complete listing of the datafile’s 100 data records to appear on the 
lineprinter, or “N” to exit. 

iv) Type in the command CNTL A //R. 


Viewing Reference Tabls. Data Records 


i) Type in the command CNTL A /SWVIEW/E. 

ii) The Reference Table directory will appear on the screen, respond with a record number to be 
viewed or zero to exit. 

iii) After exiting the task, type in the command CNTL A //R. 


(Continued on next page) 
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Initialization of the Reference Table 


i) AS contours geometrically flat 

Type in the following commands: 

CNTL A /SWINIT/E 
CNTL A /R 

(After message “INITIALIZATION COMPLETE” appears on CPU-A console.) 

CNTL A //R 

ii) AS contours with linear divergence and tunnel centerline rotation 

i) Type in the following commands: CNTL A /SWINI/E CNTL A /R. 

ii) When message “INPUT TUNNEL CENTERLINE ROTATION (+VE DOWN) - DEG.” 
appears, respond by normally typing in a zero on the CPU-A console. 

iii) When a message “INITIALIZATION COMPLETE” appears, type in CNTL A //R. 

NOTE: If the amount of linear divergence for any AS contour needs to be changed then the 
source of task SWINI must be modified. 

iii) AS contours found experimentally 

i) Load the reduced data datafile (wall library) with AS wall contours found experimentally (See 
Appendix D). 

ii) Type in the following command: CNTL A /SWMOD/E. 

iii) Follow prompts and input the appropriate record number from the reduced data datafile and 
the associated record number in the Reference Table for each record transfer required. 

iv) Exit program by responding with a zero. 

v) Then type in the command CNTL A //R. 

NOTE: Only the records in the Reference Table involved in a data transfer are modified by this 
procedure. 


Generating a Tape Backup of the Reference. Table. Datafile 


i) Type in the command CNTL A /SWDUMP/E. 

ii) Load a clean tape on MT3 and respond with CNTL A /R. 

iii) When message “DATA TRANSFER COMPLETE” appears, remove tape from MT3 and label 
“CPU-A REFERENCE TABLE” with the current date. 

iv) Type in the command CNTL A //R. 


Loading the Rejf^trnce Table. Datafile from a Tape Backup 


i) Type in the command CNTL A /SWLOAD/E. 

ii) Load required tape labelled “CPU-A REFERENCE TABLE” on MT3 and respond 
with CNTL A /R. 

iii) When message “DATA TRANSFER COMPLETE” appears, then remove tape from MT3. 

iv) Type in the command CNTL A //R. 


158 



APPENDIX D. 1 - LISTING OF FM ASSIGN (Reference Table Datafile Assignments) 
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o o 


c********************************************************************** 
c* * FMASSIGN * 
C* * 10/23/86 * 
C* DISKFILE MANAGEMENT ASSIGNMENTS * * 
C* * * 
C* * * 
c********************************************************************** 
C 

C REFERENCE TABLE 'STRAIGHT WALL' DATA FILE FORMAT : 





c 

RECORD 1 


c 

WORDS 

TYPE 

c 

1 

1*2 

c 

2 

1*2 

c 

3-22 

R*4 

c 

23-42 

R*4 

c 

43-142 

1*2 

c 



c 

RECORD 2 TO 

i 101 - 

c 

WORDS 

TYPE 

c 

1-2 

R*4 

c 

3-4 

R*4 

c 

5-6 

R*4 

c 

7-48 

R*4 

c 

49-90 

R*4 

c 

91-134 

R*4 

c 

135-178 

R*4 

c 

179-214 

R*4 

c 

215-250 

R*4 


C 

C ^ ^ ^ 


NAME USE 

NTMACH 4 OF MACH NOS. IN TABLE 
NTREYNO # OF REY. NOS. IN TABLE 
TMACH ( * ) MACH NOS. 

TREYNO ( *) REYNOLDS NOS. 

INDEX (*,*) POINTERS TO DISK RECS. 


NAME USE 

XMACH RECORD MACH NO. 

XREYNO RECORD REY. NO. 

XMPARA MODEL PARAMETER 
TWYAS ( * ) TOP WALL Y CO-ORDS. 
BWYAS ( * ) BOTTOM WALL Y CO-ORDS. 
TWVEL( *) TOP WALL VELOCITIES 
BWVEL ( * ) BOTTOM WALL VELOCITIES 
DSTAS ( * ) TOP WALL D* CONTOUR 
DSBAS (*) BOTTOM WALL D* CONTOUR 


********************************** 


C 


c 


c 


INTEGER* 2 CO , I BUFF , JBUFF , NTMACH , NTREYNO , INDEX , ITIME , IDATE 

INTEGER* 4 IREC 

REAL* 4 XMACH, XREYNO, XMPARA 


DIMENSION I BUFF (256) , JBUFF(256) ,TMACH(10) ,TREYNO(10) , INDEX (10 , 10) 
DIMENSION ITIME (3) , IDATE (3) , DSTAS (18) , DSBAS (18) 

DIMENSION TWYAS (21) , BWYAS (21) ,TWVEL(22) ,BWVEL(22) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( I BUFF ( 1) , NTMACH) , 
(IBUFF(2), NTREYNO) , 

(IBUFF ( 3 ) , TMACH ( 1 ) ) , 

(I BUFF (23) , TREYNO ( 1) ) , 
(IBUFF (43 ) , INDEX (1,1) ) , 


(JBUFF (1) , XMACH) 
(JBUFF ( 3 ) , XREYNO) 
(JBUFF (5) , XMPARA) 
(JBUFF (7) , TWYAS (1) ) 
(JBUFF ( 49 ) , BWYAS (1) ) 
(JBUFF (91) , TWVEL ( 1 ) ) 
(JBUFF (135) , BWVEL ( 1 ) ) 
(JBUFF (179) , DSTAS (1) ) 
(JBUFF (2 15) , DSBAS (1) ) 


DEFINE FILE 10 (101, 256, U, IREC) 
DATA CO/@CO/,LO/@LO/ 


C* ********************************************************************* 


160 


APPENDIX E 


WALL LIBRARY DOCUMENTATION 


Viewing the Current Raw Data Datafile or the Current Reduced Data Datafile 

i) Type in CNTL A /DFVIEW/E. 

ii) If the raw data datafile is to be viewed respond with ‘RAW’, if the reduced data datafile is to 
be viewed respond with ‘RED.’ 

iii) If specific data records are to be viewed type in the record numbers, one at a time. 

iv) Type in a ‘0’ and observe the message “DFVIEW EXITED.” 

v) Type in CNTL A //R to exit the procedure, then see the printout on the lineprinter of the 
directory and selected records of the selected datafile. 


Initializing Both the Raw Data and Reduced Data Datafiles 

i) Type in CNTL A /DFINIT/E followed by CNTL A /R. 

ii) When the message ‘‘INITIALIZATION COMPLETE” appears type in CNTL A //R. 


Removing the Latest Record from the Reduced Data Datafile 

i) If a bad set of wall data is acquired, immediately type in CNTL A /DFKILL/E. 

ii) Wait for the message “LAST RECORD REMOVED." 

iii) Type in CNTL A //R to exit the procedure. 


Building a Modified Reduced Data Datafile 

i) Ensure the current reduced data datafile requires modification by viewing the datafile (See 
the procedure for viewing a datafile). 

ii) Load a backup tape with required data records onto the tape drive MT3. 

iii) Transfer selected data records from the backup tape by typing in the following: 

a) CNTL A /DFMOD/E 

b) CNTL A /R 

c) Record number for transfer 

iv) When message “DATAFILE MODS COMPLETE” appears another record may be transfered 
one at a time. 

v) Type in ‘0’ to exit and observe the message “DFMOD EXITED.” 

vi) Check the contents of the current reduced data datafile by repeating step (i). 

vii) Remove the backup tape from MT3. 

viii) If transfer of other data records from another backup tape is necessary then repeat steps (ii) 
to (vii). 


Removing Data Records from the Current Reduced Data Datafile 

i) Generate a backup tape of the current reduced data datafile (See the procedure for making a 
tape backup). 

ii) Initialize the reduced data datafile (See the procedure for initializing datafiles). 

iii) Using the backup tape generated in step (i) follow the procedure for building a modified 
reduced data datafile to transfer the entire backup tape except for the data records to be 
removed. 

(Continued on next page) 
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Making a Tape Backup for Both Raw Data and Reduced Data Datafiles 


i) Ensure the raw data and reduced data datafiles contain the information required on the 
backup tape by viewing the datafiles. Do this by typing in CNTL A /DFVIEW/E then ‘RED’ 
or ‘RAW’ followed by ‘O’. Check the printout on the lineprinter. 

ii) Load a clean tape onto tape drive MT3. 

iii) Transfer data from disk to tape by typing in CNTL A /DFDUMP/E then CNTL A /R. 

iv) When the message “DATA TRANSFER COMPLETE” appears exit the procedure by typing 
in CNTL A //R. 

v) Remove the new backup tape from MT3 and label Datafile Tape with the current date, then 
store the tape in an area marked “FLXWAS Datafile Tapes.” 


Loading a Tape Backup into Both the Raw Data and Reduced Data Datafiles 

i) Load a backup tape with the required data records onto tape drive MT3. 

ii) Type in CNTL A /DFLOAD/E followed by CNTL A /R. 

iii) When the message “DATA TRANSFER COMPLETE” appears exit the procedure by typing 
in CNTL A //R. 

iv) Remove the backup tape from MT3. 


Modifying a Selected Record of the Raw Data Datafile 

i) Ensure the current raw data datafile is the correct one for modification by viewing the 
datafile (See the procedure for viewing a datafile). 

ii) Type in CNTL A /DFINPUT/E. 

iii) Type in the record number for input data. 

iv) Type in one item of the input data with its location in the data record. 

v) Observe after each item is inputed a display of the current contents of the record for data 
input is displayed on the CPU-A console. Check for the correct position of the input data in 
the record. If wrong, re-input the data item in the correct location. 

vi) Repeat steps (iv) and (v) for all the input data. 

vii) When data input is complete, store the modified record by typing in 0,0. 

viii) When the message “DFINPUT EXITED”appears type in CNTL A //R to exit the 
procedure. 

ix) View a printout of the data in the modified record on the lineprinter to check for errors. 


Modifying Selected Record of the Reduced Data Datafile 


i) Ensure the current reduced data datafile is the correct one for modification by viewing the 
datafile (See the procedure for viewing a datafile). 

ii) Type in CNTL A /DFSHAPI/E. 

iii) Type in the record number for input data. 

iv) Type in one item of the input data its location in the data record. 

v) Observe after each item is inputed a display of the current contents of the record for data 
input is displayed on the CPU-A console. Check for the correct position of the input data in 
the record. If wrong, re-input the data item in the correct location. 

vi) Repeat steps (iv) and (v) for all the input data. 

vii) When data input is complete store the modified record by typing in 0,0. 

viii) When the message “DFINPUT EXITED” appears type in CNTL A //R to exit the 
procedure. 

ix) View a printout of the data in the modified record on the lineprinter to check for errors. 
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APPENDIX E.l - LISTING OF TAB ASS 
(Raw Data and Reduced Data Datafiles Assignments) 
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c* 

c* 

c* 

c* 

c* 


DISKFILE MANAGEMENT ASSIGNMENTS 
FOR FLXWAS DATA RECORDS 


* TABASS * 

* 07/03/86 * 

* * 

* * 

* * 


C* * * 

C 

C 

C REDUCED DATA FILE FORMAT : 


c 

c 

RECORD 1 




c 

WORDS 

TYPE 

NAME 

CONTENTS 

c 

1 

1*2 

NREC #-NO OF RECORDS FILLED 

c 

2-127 

1*2 

ITEST (#) 

TEST NOS. 

c 

r* 

128-253 

1*2 

ITRUN ( # ) 

RUN NOS. 

L. 

c 

RECORD 2 




c 

WORDS 

TYPE 

NAME 

CONTENTS 

c 

1-127 

1*2 

IT DATA ( # ) 

DATA PT. NOS. 

c 

128-253 

1*2 

ITER ( # ) 

ITERATION NOS. 

u 

c 

RECORD 3 




c 

WORDS 

TYPE 

NAME 

CONTENTS 

c 

p 

1-252 

R*4 

TMACH ( # ) 

MACH NOS. 

C 

c 

RECORD 4 




c 

WORDS 

TYPE 

NAME 

CONTENTS 

c 

pi 

1-252 

R*4 

TREYNO ( # ) 

REYNOLDS NOS. 

c 

RECORD 5 




c 

WORDS 

TYPE 

NAME 

CONTENTS 

c 

pi 

1-252 

R*4 

TALPHA ( # ) 

MODEL AOA (DEG.) 

c 

RECORD 6 




c 

WORDS 

TYPE 

NAME 

CONTENTS 

c 

pi 

1-252 

R*4 

TCHORD ( # ) 

MODEL CHORD (INCHES) 

c 

RECORD 7 TO 126 



c 

WORDS 

TYPE 

NAME 

CONTENTS 

c 

1-2 

R*4 

XMACH 

RECORD MACH NO. 

c 

3-4 

R*4 

XREYNO 

RECORD REYNOLDS NO. 

c 

5-6 

R*4 

XMPARA 

RECORD MODEL PARAMETER 

c 

7-48 

R*4 

TWYAS ( * ) 

TOP WALL Y CO-ORDS. 

c 

49-90 

R*4 

BWYAS (*) 

BOTTOM WALL Y CO-ORDS. 

c 

91-134 

R*4 

TWVEL ( *) 

TOP WALL VELOCITIES 

c 

135-178 

R*4 

BWVEL(*) 

BOTTOM WALL VELOCITIES 

c 

179-214 

R*4 

DSTAS ( * ) 

TOP WALL D* CONTOUR 

c 

215-250 

R*4 

DSBAS (*) 

TOP WALL D* CONTOUR 


C 

C 

c***** ***************************************************************** 
INTEGER CO 
INTEGERS IREC 


DIMENSION KBUFF (256) ,LBUFF(256) , JBUFF(256) ,MBUFF(256) ,NBUFF(256) 
DIMENSION ITEST (128) ,ITRUN(128) ,ITDATA(128) ,ITER(128) 
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DIMENSION TMACH ( 128 ) ,TREYNO(128) ,TALPHA(128) ,TCHORD(128) 
DIMENSION ITIME ( 3 ) ,IDATE(3) ,DSTAS(18) ,DSBAS('18) 

DIMENSION TWYAS (21) ,BWYAS(21) ,TWVEL(22) ,BWVEL(22) 

DIMENSION ITES (128) ,ITR(128) f ITD(128) ,ITERN(128) 

DIMENSION TM ( 128 ) ,TR(128) ,TA(128) ,TC(128) 

C 

(JBUFF(l) , XMACH) 

( JBUFF (3 ) , XREYNO) 

( JBUFF (5) , XMPARA) 
(JBUFF (7) , TWYAS ( 1 ) ) 
(JBUFF (49) , BWYAS ( 1 ) ) 
(JBUFF (91) , TWVEL( 1) ) 
(JBUFF (135) , BWVEL ( 1 ) ) 
(JBUFF (179) , DSTAS ( 1 ) ) 
(JBUFF (2 15) , DSBAS ( 1) ) 
C 

DEFINE FILE 11 (126, 256, U, IREC) 

DEFINE FILE 12 ( 126 , 256 , U, IREC) 

DATA CO/@CO/,LO/@LO/ 


EQUIVALENCE (KBUFF(l) ,NREC) , 
EQUIVALENCE ( KBUFF ( 2 ) , ITEST ( 1 ) ) , 
EQUIVALENCE (KBUFF (128) ,ITRUN(1)) , 
EQUIVALENCE ( LBUFF ( 1 ) , ITDATA ( 1 ) ) , 
EQUIVALENCE (LBUFF (12 8) ,ITER(1)) , 
EQUIVALENCE (MBUFF ( 2 ) , ITES ( 1 ) ) , 
EQUIVALENCE (MBUFF (128) ,ITR(1) ) , 
EQUIVALENCE ( NBUFF ( 1) , ITD ( 1) ) , 
EQUIVALENCE (NBUFF ( 128 ), ITERN ( 1) ) , 


i 
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APPENDIX F 


SUPPORT SOFTWARE - TSFLOW & SWFLOW 
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APPENDIX F.l - LISTING OF PROGRAM TSFLOW 
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PROGRAM TSFLOW 


C 

C EXACT POTENTIAL FLOW CALCULATIONS FOR FLOW ROUND A 

C LIFTING CYLINDER WITHOUT A WAKE 

C 

C S . WOLF 05/27/86 

C 

C 

INTEGER CO 

DIMENSION A (43 ) ,B(43) ,C(43) ,XJACK(19) 

DATA LP/0LP/ , CO/0CO/ 

DATA XJACK/0 . , 4 . 75 , 10 . 5 , 15 . 5 , 19 . 5 , 22 . 5 , 24 . 5 , 26 . , 27 . 5 , 29 . 

+ ,30. 5, 32. ,33. 5, 35. 5, 37. 5, 39. 5, 42. 5, 46. 5, 51. 5/ 

SEMIH =6.5 
WRITE (CO, 165) 

165 FORMAT (//l OX, " EXACT STREAMLINE CALCS”//" INPUT CIRCULATION") 

READ (CO,*) CIR 
PI = 3.14159 
WRITE(LP, 105) CIR 

105 FORMAT (1H1///,9X, "TOP WALL EXACT STREAMLINE"/ 

+13X, "LIFTING CYLINDER "//10X," CIRCULATION = ",F7.4) 

Y1=SEMIH 

70 WRITE(LP, 115) 

115 FORMAT (//" X Y VEL") 

C 

C FOLLOW THAT STREAMLINE ! ! ! 

C 

DO 5 J = 1,19 
X1=XJACK(J) -30.75 

50 Fl=(l-(l/( (X1**2)+(Y1**2) ) ) ) *Y1 

F2=CIR* ( ALOG ( (X1**2+Y1**2 ) **0.5) )/(2*PI) 

IF (XI .GT. 1) GO TO 10 
IF (XI . EQ . 1) GO TO 20 

IF ( Y1 . GT . 0) F4= ( PI+ATAN (Yl/ (Xl-1) ) )/(8*PI) 

IF(Y1 . LT. 0) F4= - (PI-ATAN (Yl/ (Xl-1) ) )/(8*PI) 

GO TO 30 

20 IF ( Yl . GT . 0 ) F4= 0.0625 

IF ( Yl . LT . 0 ) F4= -0.0625 
GO TO 30 

10 F4= (ATAN (Y1/(X1-1) ) )/(8*PI) 

C30 F3=F1+F2+F4 

30 F3=F1+F2 

IF(J.EQ.l) STREAM = F3 
Y2=Y1*( (STREAM/F3) **0.5) 

IF(ABS(Y1-Y2) .LT. 0.00001) GO TO 40 
Y1=Y2 
GO TO 50 
C 

C COMPUTE STREAMLINE CPS 

C 

40 F3=(X1**2)+(Y1**2) 

Al=( (Xl-1) **2)+(Yl**2) 

F4=( (X1**2)-(Y1**2) )/ (F3**2) 

A2=(X1-1)/(8*PI*A1) 

F5=CIR*Y1/ (2*PI*F3) 

A2=0 . 

F6=l-F4+F5+A2 
F7=CIR*X1/ (2*PI*F3) 
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A3=Y1/ (8*PI*A1) 

F8=2*X1*Y1 
G1=F3**2 
F9=F8/G1 
A3 = 0. 

G2=A3-F7-F9 
G3=1-(F6**2)- (G2**2 ) 

VEL= (SQRT ( 1-G3 ) ) -1 
WMOVE = Y2-SEMIH 
IF( Y2 . LT. 0) WMOVE = Y2+SEMIH 
WRITE (LP, 125) XI, WMOVE, VEL 
125 FORMAT (F8.3,F14.4,F20.4) 

C2=SQRT(1-G3) 

A ( J) =X1 
B ( J) =Y2 
C ( J) =C2 

5 CONTINUE 

C 

C PERFORM A CIRCULATION INTEGRAL 

C 

Sl= (B ( 2 ) -B ( 1) ) /SQRT ( 1+ (B ( 2 ) -B( 1) ) **2) 

S2= (B ( 18 ) -B ( 19) ) /SQRT (1+(B(18) -B (19))**2) 

P1=B(2) *S1*C(2) 

P3=B(18) *S2*C(18) 

S2= (C ( 18 ) +C (2 ) ) *0.5 
S3=0. 

DO 15 I — 2,18 

S3=S3+ (C (I) * (XJACK(I+1) -X JACK (I) )/2) 

15 CONTINUE 

P2=S2+S3 
PARTI = PI + P3 
GAMMA = PART1+P2 
IF ( Y1 . GT . 0 ) GAMMAT=GAMMA 
WRITE ( LP , 13 5 ) PARTI , P2 , GAMMA 

135 FORMAT (//,5X, M CIRCULATION INTEGRAL"// 1 2 X, " PART 1 • " 

+, F7 . 3/12X, " PART 2 = " , F7 . 3//10X, " TOTAL GAMMA = ",F7.3) 
IF(Yl.LT.O) GO TO 80 
WRITE (LP, 145) CIR 

145 FORMAT (1H1///, 8 X, "BOTTOM WALL EXACT STREAMLINE"/ 

+13X, "LIFTING CYLINDER "//10X," CIRCULATION = ",F7.4) 

Yl= -SEMIH 
GO TO 70 

80 CIRTOT=GAMMAT-GAMMA 
WRITE (LP, 155) CIRTOT 

155 FORMAT (///10X, " CIRCULATION ESTIMATE = ",F7.4) 

END FILE LP 

STOP 

END 
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tmnwKmiv mm 



TOP WALL EXACT STREAMLINE 
LIFTING CYLINDER 


CIRCULATION = 0.5000 


X 

Y 

-30.750 

0.0000 

-26.000 

0.0152 

-20.250 

0.0389 

-15.250 

0.0680 

-11.250 

0.1022 

-8.250 

0.1392 

-6.250 

0.1715 

-4.750 

0.1995 

-3.250 

0.2282 

-1.750 

0.2520 

-0.250 

0.2633 

1.250 

0.2575 

2.750 

0.2371 

4.750 

0.1996 

6.750 

0.1628 

8.750 

0.1321 

11.750 

0.0971 

15.750 

0.0646 

20.750 

0.0365 


CIRCULATION INTEGRAL 

PART 1 = 0.283 

PART 2 = 24.520 

TOTAL GAMMA = 24.802 


VEL 

0.0004 

0.0005 

0.0006 

0.0006 

0.0003 

0.0029 

0.0073 

0.0130 

0.0209 

0.0291 

0.0335 

0.0312 

0.0238 

0.0130 

0.0059 

0.0022 

0.0001 

•0.0006 

0.0006 


BOTTOM WALL EXACT STREAMLINE 
LIFTING CYLINDER 

CIRCULATION = 0.5000 


X 

Y 

VEL 

-30.750 

0.0000 

-0.0014 

-26.000 

0.0102 

-0.0019 

-20.250 

0.0233 

-0.0029 

-15.250 

0.0340 

-0.0044 

-11.250 

0.0386 

-0.0060 

-8.250 

0.0351 

-0.0069 

-6.250 

0.0262 

-0.0059 

-4.750 

0.0147 

-0.0033 

-3.250 

0.0000 

0.0016 

-1.750 

-0.0141 

0.0077 

-0.250 

-0.0214 

0.0112 

1.250 

-0.0177 

0.0093 

2.750 

-0.0050 

0.0036 

4.750 

0.0147 

-0.0033 

6.750 

0.0290 

-0.0064 

8.750 

0.0364 

-0.0068 

11.750 

0.0384 

-0.0058 

15.750 

0.0331 

-0.0042 

20.750 

0.0222 

-0.0028 


CIRCULATION 

INTEGRAL 

PART 1 = 

-0.136 

PART 2 = 

24.311 

TOTAL GAMMA 

= 24.175 


CIRCULATION ESTIMATE 


0.6270 



APPENDIX F.3 - LISTING OF PROGRAM SWFLOW 
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null jL 



PROGRAM SWFLOW 


C 

C EXACT POTENTIAL FLOW CALCULATIONS FOR FLOW ROUND A 

C LIFTING CYLINDER WITHOUT A WAKE IN A STRAIGHT WALL TEST SECTION 

C S . WOLF 08/28/85 

C 

INTEGER CO 

DIMENSION A (43 ) ,B(43) ,C(43) ,XJACK(19) 

DATA LP/@LP/ , CO/@CO/ 

DATA XJACK/0. ,4.75, 10.5, 15.5, 19.5,22.5,24.5,26. ,27.5,29. 

+,30. 5, 32., 33. 5, 35. 5, 37. 5, 39. 5, 42. 5, 46. 5, 51. 5/ 

SEMIH =6.5 
IWALL=1 
WRITE (CO, 165) 

165 FORMAT (//10X," EXACT STREAMLINE CALCS"//" INPUT CIRCULATION") 

READ (CO,*) CIR 
PI = 3.14159 
WRITE (LP, 105) CIR 

105 FORMAT (1H1///, 8 X, "STRAIGHT TOP WALL STREAMLINE"/ 

+13X, "LIFTING CYLINDER "//10X," CIRCULATION = ",F7.4) 

Y1=SEMIH 

70 WRITE (LP, 115) 

115 FORMAT (//" X Y CP PHI") 

C 

C FOLLOW THAT STREAMLINE ! ! ! 

C 

DO 5 J = 1,19 
F3=0 . 

I MAGE =1 

X1=XJACK(J) -30.75 

50 Fl=(l-(l/( (X1**2)+(Y1**2) ) ) ) *Y1 

F2=CIR* (ALOG ( (X1**2+Y1**2 ) **0.5) )/(2*PI) 

IF (IMAGE . EQ. 0) F2= -F2 
IF (XI . GT. 1) GO TO 10 
IF (XI . EQ. 1) GO TO 20 

IF ( Y1 . GT . 0) F4= ( PI+ATAN (Y1/(X1-1) ) )/(8*PI) 

IF ( Y1 . LT . 0 ) F4= - (PI-ATAN (Yl/ (Xl-1) ) )/(8*PI) 

GO TO 30 

20 IF (Yl . GT. 0) F4= 0.0625 

IF ( Yl . LT . 0) F4= -0.0625 
GO TO 30 

10 F4= (ATAN ( Yl/ (Xl-1) ) ) / (8*PI) 

C30 F3=F1+F2+F4+F3 

30 F3=F1+F2+F3 

Yl= -Yl 

IF ( IMAGE. EQ. 0) GO TO 40 
IMAGE=0 
GO TO 50 
C 

C COMPUTE STREAMLINE CPS 

C 

40 IMAGE=2 

STREAM = F3 
F6=0 . 

G2=0 . 

100 F3=(X1**2)+(Y1**2) 

Al= ( (Xl-1) **2)+(Yl**2) 

F4=( (X1**2)-(Y1**2) )/(F3**2) 
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A2= (Xl-1) / (8*PI*A1) 

F5=CIR*Y1/ ( 2 *PI *F3 ) 

IF (IMAGE. EQ.0)F5= -F5 
A2=0 . 

F6=F6-F4+F5+A2 
F7=CIR*X1/ (2*PI*F3) 

IF ( IMAGE . EQ . 0) F7= -F7 
A3=Y1/ ( 8 *PI *A1 ) 

F8=2*X1*Y1 
G1=F3**2 
F9=F8/G1 
A3=0 . 

G2=A3-F7-F9+G2 
Y1 = -Y1 

IF (IMAGE . EQ . 0) GO TO 90 
IMAGE=0 
GO TO 100 
90 F6=F6+1 . 

G3=1-(F6**2)-(G2**2) 

WRITE (LP, 125) XI, Y1,G3, STREAM 
125 FORMAT (F8 .3,F14.4,F20.4,F15.4) 

C2=SQRT ( 1-G3 ) 

A ( J) =X1 
B ( J) =Y1 
C(J)=C2 

5 CONTINUE 

C 

C PERFORM A CIRCULATION INTEGRAL 

C 

Sl= (B (2 ) -B ( 1) ) /SQRT ( 1+ (B (2 ) -B(l) ) **2) 

S2=(B(18) -B ( 19 ) ) /SQRT ( 1+ (B ( 18) -B (19) ) **2) 

P1=B ( 2 ) *S1*C (2 ) 

P3=B ( 18 ) *S2 *C (18) 

S2= (C ( 18 ) +C ( 2 ) ) *0.5 
S3=0 . 

DO 15 I = 2,18 

S3=S3+(C(I) * (XJACK(I+1) -XJACK(I) )/2) 

15 CONTINUE 

P2=S2+S3 
PARTI = PI + P3 
GAMMA = PART1+P2 
I F ( I WALL . EQ . 1 ) GAMMAT=GAMMA 
WRITE ( LP , 13 5 ) PARTI , P2 , GAMMA 

135 FORMAT (// , 5X, " CIRCULATION INTEGRAL"// 12X , " PART 1 = " 

+, F7 . 3/12X, " PART 2 = " , F7 . 3//10X, " TOTAL GAMMA = ",F7.3) 
I F ( I WALL . EQ . 2 ) GO TO 80 
WRITE (LP, 145) CIR 

145 FORMAT (1H1///,7X, "STRAIGHT BOTTOM WALL STREAMLINE"/ 

+13X, "LIFTING CYLINDER "//10X," CIRCULATION = ",F7.4) 

Yl= -SEMIH 
IWALL=2 
GO TO 70 

80 CIRTOT=GAMMAT-GAMMA 
WRITE (LP, 155) CIRTOT 

155 FORMAT (///10X, " CIRCULATION ESTIMATE = ",F7.4) 

END FILE LP 

STOP 

END 


177 



APPENDIX F.4 - SAMPLE OUTPUT OF SWFLOW 


PRECEDING PAGE BLANK NOT FILMED 


179 




STRAIGHT TOP WALL STREAMLINE 
LIFTING CYLINDER 

CIRCULATION = 0.5000 


X 

Y 

CP 

PHI 

-30.750 

6.5000 

0.0016 

0.0000 

-26.000 

6.5000 

0.0020 

0.0000 

-20.250 

6.5000 

0.0026 

0.0000 

-15.250 

6.5000 

0.0025 

0.0000 

-11.250 

6.5000 

-0.0004 

0.0000 

-8.250 

6.5000 

-0.0103 

0.0000 

-6.250 

6.5000 

-0.0276 

0.0000 

-4.750 

6.5000 

-0.0513 

0.0000 

-3.250 

6.5000 

-0.0864 

0.0000 

-1.750 

6.5000 

-0.1257 

0.0000 

-0.250 

6.5000 

-0.1483 

0.0000 

1.250 

6.5000 

-0.1364 

0.0000 

2.750 

6.5000 

-0.0998 

0.0000 

4.750 

6.5000 

-0.0513 

0.0000 

6.750 

6.5000 

-0.0220 

0.0000 

8.750 

6.5000 

-0.0077 

0.0000 

11.750 

6.5000 

0.0003 

0.0000 

15.750 

6.5000 

0.0026 

0.0000 

20.750 

6.5000 

0.0026 

0.0000 


CIRCULATION INTEGRAL 

PART 1 = 0.000 

PART 2 = 24.668 

TOTAL GAMMA = 24.668 
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STRAIGHT BOTTOM WALL STREAMLINE 
LIFTING CYLINDER 


CIRCULATION = 0.5000 


X 

Y 

CP 

PHI 

-30.750 

-6.5000 

0.0058 

0.0000 

-26.000 

-6.5000 

0.0078 

0.0000 

-20.250 

-6.5000 

0.0117 

0.0000 

-15.250 

-6.5000 

0.0175 

0.0000 

-11.250 

-6.5000 

0.0239 

0.0000 

-8.250 

-6.5000 

0.0271 

0.0000 

-6.250 

-6.5000 

0.0234 

0.0000 

-4.750 

-6.5000 

0.0131 

0.0000 

-3.250 

-6.5000 

-0.0063 

0.0000 

-1.750 

-6.5000 

-0.0309 

0.0000 

-0.250 

-6.5000 

-0.0459 

0.0000 

1.250 

-6.5000 

-0.0379 

0.0000 

2.750 

-6.5000 

-0.0144 

0.0000 

4.750 

-6.5000 

0.0131 

0.0000 

6.750 

-6.5000 

0.0251 

0.0000 

8.750 

-6.5000 

0.0270 

0.0000 

11.750 

-6.5000 

0.0231 

0.0000 

15.750 

-6.5000 

0.0168 

0.0000 

20.750 

-6.5000 

0.0113 

0.0000 


CIRCULATION 

INTEGRAL 

PART 1 = 

0.000 

PART 2 = 

24.248 

TOTAL GAMMA 

= 24.248 

CIRCULATION 

ESTIMATE = 0.4196 
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APPENDIX G 


D escription of Subroutine WALCA L Computati ons 


1. Introduction 

The purpose of this program is to determine velocity distributions and 
associated streamline shapes in the farfield of thin airfoils. Linear 
potential flow is assumed with compressibility taken into account by use of 
the Prandtl -G1 auert factor. Calculations are based on a simplified 
singularity distribution of the model. Its solid blockage is simulated by a 
Rankine Oval of same length and maximum thickness as the airfoil and is 
represented by a source and a sink of equal strength. The model lift is 
represented by a single vortex, the strength of which is given by the 
estimated section lift coefficient. The wake blockage is accounted for by a 
source. Its strength is derived from the estimated section drag coefficient. 

The program is used to predict the wall deflections and corresponding pressure 
distributions (upper and lower wall) of the 0.3-m adaptive wall test 
section. The computed deflections are added to the aerodynamical ly straight 
contours to provide jack movements relative to flat walls. 


2. Symbols 
(x,y) 


(x ' ,y ' ) 


1 ,..., 21 


reference system with x-axis parallel to freestream 
velocity U^. Its origin is located at the airfoil 
center 

'tunnel 1 based reference system 

x'-axis coincides with tunnel center line. The origin 
is located at the test section inlet 

position of jacks along the top and bottom flexible 
walls of the 0.3-m adaptive wall test section [inch] 


U 

oo 

3 = (1 
* 


- M‘ 




* 

$ 


freestream velocity 

freestream Hach number 

compressibility factor 

disturbance potential (normalized with U^) 

disturbance stream function (normalized with U^) 

= x + <)>, flow potential 


f 


= y + 4>, stream function 


u 

V 

c 


a<j> 
ax 
a <}> 


disturbance velocities 


airfoil cho^d length [inch] 


PAG 


WT ffWOf M IU RANK 
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t 

1 

0 

I 

r 


c 

c 


L 

D 


Re 


c 


0 


Subscripts: 

B 

L 

W 

Superscripts : 


airfoil maxi nun thickness [inch] 
source strength (normalized with ZnlM 
vortex strength (normalized with 2nlM 
section lift coefficient 
section drag coefficient 
Reynolds number based on airfoil chord 
Landau Symbol 

blockage-induced 
lift-induced 
wake-i nduced 

quantities in incompressible flow (related to 
compressible flow by Prandtl -Glauert transformation) 


3. Analysis 

3.1 Calculation of disturbance velocities 
The disturbance velocities 


v = v B + v L + v w 

in the farfield of the airfoil can be calculated individually using only 
global information about the model geometry and its aerodynamic behavior, |l|. 

3.1.1 Blockage 

The solid blockage is caused by the streamline displacement due to the airfoil 
cross-section area distribution. The main parameters therefore are the 
airfoil chord length and its maximum thickness, which are readily available 
for each airfoil. 

These two geometrical quantities uniquely define a Rankine oval whose flow 
field can easily be generated by a source and a sink of equal strength Q' 
located at (+a, o) within the body. 
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In order to determine Q' and 'a' from the given values c and t, it is 
convenient to first reduce the compressible potential equation to the Laplace 
equation by the usual transformation, j 2 1 

A 

X = X 


1 * 
y = i y 

_ i 


<t>( X ,y ) = |- <J) (x,y ) 
The resulting incompressible flow 


( 2 ) 


<j>**+<j>*A = 0 (3) 

xx yy 

is then related to the compressible flow field by the relations 

$ x (x,y) = j (x,y ) 

(4) 

♦ v (x,y) = ^(x,y) 

y y 

The geometry of the body, especially its thickness, does not change under the 
transformation. 


The velocity potential for the incompressible flow past the Rankine Oval is 
given by 

$ ( x ,y ) = x + Q 1 { in [ ( x + a) 2 +y 2 ] ly/ 2- m [ (x - a) 2 + y 2 ] ly/ 2 } (5) 

O' and a have now to be adjusted to match the prescribed geometry (length and 
thickness) of the oval: 


In order to generate stagnation points at (x s , y s ) = (± ^> 0 )« Q' an ^ ' a ' have 
to fulfill the equation 

a 

A A A \ A A AAA 

^ ^ X S’ -^5) = TT ^ x $ > y $) ~ ^ + u ^ x s , y s ) 


= 1 + Q' 


x $ + a x$ - a 

(x s + a) 2 + y 2 (x s - a) 2 + y 2 


= U 

and therefore 



2a 


( 6 ) 


( 7 ) 


A' second relation can be derived f rom f"e prescribed maximum thickness t at 
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ORIGINAL PAGE IS 
OF POOR QUALITY 

A 

x t = 0. Application of Gauss' law immediately yields the equation 


with y t = | . 
Using (6) we get 


*t ... 

Zf [1 + u (o,y )] dy = 2irQ ' 

0 


u (o,y) = Q' 


2a 


and then 


2 *2 
a^ + 


yt . y t 

/ [1 + u (o,y )] dy = y t + 2aQ' ^ arc tan | 

0 0 

A 

= y t + 2Q' arc tan ^ 


( 8 ) 


(9) 


(10) 


Assuming thin airfoils 


= ttQ 1 


i .it . « i 

c x r a 


( 11 ) 


X < 1 


we can use the first order approximation 
arc tan x = x + 0 (x J ) 
which transforms (10) into 

A 

it + O' < 2 t -"> - 0 

Combining (7) and (13) finally yields the cubic equation 

a^ + pa + q = 0 
A 2 

p = -x| 


( 12 ) 


(13) 


(14) 


Si nee 


H 7T 


o = ( S-) s + (^) 2 = £ [& 2 

3 2 s 7T 


< 0 
27 


according to (11), (14) has three real >c'<;tion$, |3 
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1 = r 

COS 

( 3> 

2 = r 

cos 

(S + &■) 
3 

3 = r 

cos 

A 

(5 + is-) 
3 


wi th 


r = 


2 x s 

7T 


/ n 

6 = arc cos ( ^ ) 


If x. 


(15) 


(16) 


However, application of assumption (11), which may be specified as 

i < 0.2 

(airfoil thickness less than 20 %), reveals 


(17) 


2< o , U> l 

X, 


(18) 


It is obvious that these two solutions do not generate the desired flow field 
and can therefore be disregarded. Inserting the 'correct' solution a = a, in 
(7) and using (5) and (4) we can calculate the blockage induced disturbance 
velocities everywhere in the flow field: 


1 


A A A 


u„(x,y ) = -g u B (x,y ) = { 


Q' 


x + a 


8 1 ( x + a ) 2 + g 2 y 2 (x - aT + 8 ^y 


x - a 
2 . ~ 2 ~ 2 } 


(19) 


AAA 

v k (x,y) = v„ (x,y) = g Q'y { 5 - 5 - * jr-?} 

B B (x * a ) 2 + bV (x - a ) 2 + sV 


3.1.2 Lift 


The airfoil lift is represented by a single vortex located at the 1/4 chord 
point. Its strength r' is related to the section lift coefficient by the 
Kutta-Youkowsky-Theorem, | 2 | 

cC. 

r' (20) 

4ir 


Application of the transformation (2) shows that the corresponding 
incompressible flow has circulation 


r = 


i 


2 ^ /{♦* tlx + 
x 


dy} - -k— f {8 4 > v dx + <j> 8 dy) - 8 T 

y x y 


(21) 
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Differentiation of the incompressible vortex-potential 

A 

A A A A w 

♦ L (x.y) 3 - r' arc tan 


( 22 ) 


x + 


and transforming back in the compressible plane immediately yields the lift 
induced disturbance velocities throughout the flow field 


u L (x,y) = er' 


v L (x,y) = -Br ' 


(x + ^) 2 + bV 

x * I 

(x + |) 2 + B Z y 2 


(23) 


3.1.3 Wake Blockage 


The source representing the model wake is located at the trailing edge of the 
airfoil Its (normalized) stength can be derived from the section drag 
coefficient as follows, 111 

CCr, 


Q w = JT 

The resulting disturbance velocities are then according to (19) 


(24) 


u w (x,y) 


Qw x - I 

6 (x - i) 2 + 3 2 y 2 


(25) 


v w ( x,y ) = BQ^ 


(x - |) 2 + s 2 y 2 


3.2 Calculation of streamline shapes 

The equation for the streamlines in the related incompressible flow is given 
by 

f = y + ’l'^ +| J > L + = ^ = cons t* (26) 


wi th 


A A 

(x,y ) = O' 

{arc tan — - arc tan 

x + a 

A A A 

(x,y) = r ' 

tn [U ♦ £ 2 

(x,y) = QJ 

arc tan 


x - a 

, r 1 = Br* 


( 27 ) 


x - 
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The value of the constant is determined by inserting a known point (x , y ) 
from the streamline to be calculated 0 0 


AAA 
C = * 

Rearranging (26) leads to the following simple iteration formula 

y (n + i) = * o 0 , y 0 } - Ob + + ^ ( x »y(N)^» n = o, 1, . . . 

with 


(28) 

(29) 


y (0) (x k ) = Y( x k _i ) , k = 1, 2, . . . (jack locations) (30) 

Iteration stops if 


|y(n + i) - y(N)l < 10-3 (31) 

The corresponding compressible streamline then passes through the point 
x 0 = x 0 , y 0 = j y 0 • Its distortion remains unchanged 

y - y 0 = y - y 0 02) 

The programming of the equations is relatively straightforward. Only 
expression (26) has been implemented in such a way as to separately calculate 
the wall deflections due to the different singularities. The reformulated 
equation reads like 

y - *0 = *B,o " *B + *L,o - *L + *W,o ' *W (33) 

= y b - y 0 + k - y 0 + y* - y 0 

with 0 = (x 0 , y Q ) and so forth. 

Inserting the relations (27) for the stream functions leads to the iteration 
. formulae: 


solid blockage 

Yb,(N+ 1) ' ^o = Q' Ore tan - arc tan 


y o a ^ fan y 0 


x o + a 


X 0 - a 


+ arc tan arc tan — } 


x - a 


x + a 


(34) 


. x n ' a x~ + a 

= Q (arc tan arc tan 


+ arc tan * — - arc tan * --• - } 
y (N) Y(n) 
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The use of the inverse arguments in the arc tan functions is preferable for 
the numerical computations since it avoids the otherwise occurring 

discontinuities when x + a changes sign. 


lift effect 


y L, (N + 1) ‘ y o 


| Sf' [in [{x o + |) 2 + ^ 2 ] - in C(x + £) 2 + y 2 N) ]} (35) 


wake blockage 

A 

y w,(N + 1) 


y n = 


{arc tan 


- arc tan -M-} 

Z c l c J 

x o ■ 2 x ■ 2 


„ _ C X - c 

= Q' {arc tan — - - arc tan — -} 

y (N) y o 


(36) 


The perturbation velocities along the walls, required by the wall adaptation 
procedure |4|, can be determined from (1), (19), (23), and (25) as follows 

u wall = [(1 + u)2 + v2 ^ /2 - 1 (37) 
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